/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / ada-stmt.elc.z / ada-stmt.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 30 3a 32 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:29 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 61 64 61 2d 73 74 | 6d 74 2e 65 6c 0a 3b 3b |s/ada-st|mt.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 61 64 61 2d 73 |  (error| "`ada-s|
|000001f0| 74 6d 74 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |tmt.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 88 c2 c3 | 21 88 c0 c4 21 87 22 20 | "..!...|!...!." |
|00000270| 5b 72 65 71 75 69 72 65 | 20 61 64 61 2d 6d 6f 64 |[require| ada-mod|
|00000280| 65 20 6c 6f 61 64 20 22 | 73 6b 65 6c 65 74 6f 6e |e load "|skeleton|
|00000290| 22 20 65 61 73 79 6d 65 | 6e 75 5d 20 32 29 0a 23 |" easyme|nu] 2).#|
|000002a0| 40 34 31 20 2a 54 6f 67 | 67 6c 65 20 74 6f 20 69 |@41 *Tog|gle to i|
|000002b0| 6e 73 65 72 74 20 61 64 | 61 20 64 65 62 75 67 20 |nsert ad|a debug |
|000002c0| 63 6f 64 65 20 70 61 72 | 74 73 2e 1f 0a 28 64 65 |code par|ts...(de|
|000002d0| 66 76 61 72 20 61 64 61 | 2d 73 74 6d 74 2d 75 73 |fvar ada|-stmt-us|
|000002e0| 65 2d 64 65 62 75 67 20 | 74 20 28 23 24 20 2e 20 |e-debug |t (#$ . |
|000002f0| 2d 36 37 36 29 29 0a 23 | 40 32 39 20 2a 44 65 62 |-676)).#|@29 *Deb|
|00000300| 75 67 20 63 61 6c 6c 20 | 63 6f 64 65 20 74 6f 20 |ug call |code to |
|00000310| 69 6e 73 65 72 74 2e 1f | 0a 28 64 65 66 76 61 72 |insert..|.(defvar|
|00000320| 20 61 64 61 2d 64 65 62 | 75 67 2d 63 61 6c 6c 2d | ada-deb|ug-call-|
|00000330| 73 74 72 20 22 70 72 61 | 67 6d 61 20 44 65 62 75 |str "pra|gma Debu|
|00000340| 67 20 28 25 73 29 3b 22 | 20 28 23 24 20 2e 20 2d |g (%s);"| (#$ . -|
|00000350| 37 36 34 29 29 0a 23 40 | 33 34 20 2a 44 65 62 75 |764)).#@|34 *Debu|
|00000360| 67 20 65 78 63 65 70 74 | 69 6f 6e 20 63 6f 64 65 |g except|ion code|
|00000370| 20 74 6f 20 69 6e 73 65 | 72 74 2e 1f 0a 28 64 65 | to inse|rt...(de|
|00000380| 66 76 61 72 20 61 64 61 | 2d 64 65 62 75 67 2d 65 |fvar ada|-debug-e|
|00000390| 78 63 65 70 74 69 6f 6e | 2d 73 74 72 20 22 70 72 |xception|-str "pr|
|000003a0| 61 67 6d 61 20 44 65 62 | 75 67 20 28 25 73 29 3b |agma Deb|ug (%s);|
|000003b0| 22 20 28 23 24 20 2e 20 | 2d 38 35 39 29 29 0a 28 |" (#$ . |-859)).(|
|000003c0| 64 65 66 61 6c 69 61 73 | 20 27 61 64 61 2d 66 75 |defalias| 'ada-fu|
|000003d0| 6e 63 2d 6f 72 2d 70 72 | 6f 63 2d 6e 61 6d 65 20 |nc-or-pr|oc-name |
|000003e0| 23 5b 6e 69 6c 20 22 8a | c0 19 c2 0b c4 c0 23 ab |#[nil ".|......#.|
|000003f0| 87 c5 94 c5 95 7b aa 81 | c6 2a 87 22 20 5b 74 20 |.....{..|.*." [t |
|00000400| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00000410| 20 72 65 2d 73 65 61 72 | 63 68 2d 62 61 63 6b 77 | re-sear|ch-backw|
|00000420| 61 72 64 20 61 64 61 2d | 70 72 6f 63 65 64 75 72 |ard ada-|procedur|
|00000430| 65 2d 73 74 61 72 74 2d | 72 65 67 65 78 70 20 6e |e-start-|regexp n|
|00000440| 69 6c 20 32 20 22 4e 41 | 4d 45 3f 22 5d 20 34 5d |il 2 "NA|ME?"] 4]|
|00000450| 29 0a 23 40 35 30 20 54 | 6f 67 67 6c 65 73 20 62 |).#@50 T|oggles b|
|00000460| 65 68 61 76 69 6f 75 72 | 20 6f 66 20 60 61 64 61 |ehaviour| of `ada|
|00000470| 2d 64 65 62 75 67 2d 69 | 6e 66 6f 2d 69 6e 73 65 |-debug-i|nfo-inse|
|00000480| 72 74 69 6f 6e 27 2e 1f | 0a 28 64 65 66 61 6c 69 |rtion'..|.(defali|
|00000490| 61 73 20 27 61 64 61 2d | 74 6f 67 67 6c 65 2d 64 |as 'ada-|toggle-d|
|000004a0| 65 62 75 67 67 69 6e 67 | 20 23 5b 6e 69 6c 20 22 |ebugging| #[nil "|
|000004b0| 08 3f 89 10 ab 84 c1 c2 | 21 87 c1 c3 21 87 22 20 |.?......|!...!." |
|000004c0| 5b 61 64 61 2d 73 74 6d | 74 2d 75 73 65 2d 64 65 |[ada-stm|t-use-de|
|000004d0| 62 75 67 20 6d 65 73 73 | 61 67 65 20 22 44 65 62 |bug mess|age "Deb|
|000004e0| 75 67 67 69 6e 67 20 65 | 6e 61 62 6c 65 64 22 20 |ugging e|nabled" |
|000004f0| 22 44 65 62 75 67 67 69 | 6e 67 20 64 69 73 61 62 |"Debuggi|ng disab|
|00000500| 6c 65 64 22 5d 20 33 20 | 28 23 24 20 2e 20 31 31 |led"] 3 |(#$ . 11|
|00000510| 31 31 29 20 6e 69 6c 5d | 29 0a 23 40 35 36 20 4b |11) nil]|).#@56 K|
|00000520| 65 79 6d 61 70 20 75 73 | 65 64 20 69 6e 20 41 64 |eymap us|ed in Ad|
|00000530| 61 20 6d 6f 64 65 20 66 | 6f 72 20 73 6d 61 72 74 |a mode f|or smart|
|00000540| 20 74 65 6d 70 6c 61 74 | 65 20 6f 70 65 72 61 74 | templat|e operat|
|00000550| 69 6f 6e 73 2e 1f 0a 28 | 64 65 66 76 61 72 20 61 |ions...(|defvar a|
|00000560| 64 61 2d 74 65 6d 70 6c | 61 74 65 2d 6d 61 70 20 |da-templ|ate-map |
|00000570| 6e 69 6c 20 28 23 24 20 | 2e 20 31 33 31 31 29 29 |nil (#$ |. 1311))|
|00000580| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 20 19 |.(byte-c|ode ". .|
|00000590| c2 09 c3 c4 23 88 c2 09 | c5 c6 23 88 c2 09 c7 c8 |....#...|..#.....|
|000005a0| 23 88 c2 09 c9 ca 23 88 | c2 09 cb cc 23 88 c2 09 |#.....#.|....#...|
|000005b0| cd ce 23 88 c2 09 cf d0 | 23 88 c2 09 d1 d2 23 88 |..#.....|#.....#.|
|000005c0| c2 09 d3 d4 23 88 c2 09 | d5 d6 23 88 c2 09 d7 d8 |....#...|..#.....|
|000005d0| 23 88 c2 09 d9 da 23 88 | c2 09 db dc 23 88 c2 09 |#.....#.|....#...|
|000005e0| dd de 23 88 c2 09 df e0 | 23 88 c2 09 e1 e2 23 88 |..#.....|#.....#.|
|000005f0| c2 09 e3 e4 23 88 c2 09 | e5 e6 23 88 c2 09 e7 e8 |....#...|..#.....|
|00000600| 23 88 c2 09 e9 ea 23 88 | c2 09 eb ec 23 88 c2 09 |#.....#.|....#...|
|00000610| ed ee 23 88 c2 09 ef f0 | 23 88 c2 09 f1 f2 23 88 |..#.....|#.....#.|
|00000620| c2 09 f3 f4 23 88 c2 09 | f5 f6 23 88 c2 09 f7 f8 |....#...|..#.....|
|00000630| 23 88 c2 09 f9 fa 23 88 | c2 09 fb fc 23 88 09 16 |#.....#.|....#...|
|00000640| 3d 29 c2 0e 3e ff 0e 3d | 23 87 22 20 5b 6d 61 6b |=)..>..=|#." [mak|
|00000650| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 20 |e-sparse|-keymap |
|00000660| 61 64 61 2d 6d 70 20 64 | 65 66 69 6e 65 2d 6b 65 |ada-mp d|efine-ke|
|00000670| 79 20 22 68 22 20 61 64 | 61 2d 68 65 61 64 65 72 |y "h" ad|a-header|
|00000680| 20 22 28 22 20 69 6e 73 | 65 72 74 2d 70 61 72 65 | "(" ins|ert-pare|
|00000690| 6e 74 68 65 73 65 73 20 | 22 01 22 20 61 64 61 2d |ntheses |"." ada-|
|000006a0| 61 72 72 61 79 20 22 62 | 22 20 61 64 61 2d 65 78 |array "b|" ada-ex|
|000006b0| 63 65 70 74 69 6f 6e 2d | 62 6c 6f 63 6b 20 22 64 |ception-|block "d|
|000006c0| 22 20 61 64 61 2d 64 65 | 63 6c 61 72 65 2d 62 6c |" ada-de|clare-bl|
|000006d0| 6f 63 6b 20 22 63 22 20 | 61 64 61 2d 63 61 73 65 |ock "c" |ada-case|
|000006e0| 20 22 05 22 20 61 64 61 | 2d 65 6c 73 69 66 20 22 | "." ada|-elsif "|
|000006f0| 65 22 20 61 64 61 2d 65 | 6c 73 65 20 22 0b 22 20 |e" ada-e|lse "." |
|00000700| 61 64 61 2d 70 61 63 6b | 61 67 65 2d 73 70 65 63 |ada-pack|age-spec|
|00000710| 20 22 6b 22 20 61 64 61 | 2d 70 61 63 6b 61 67 65 | "k" ada|-package|
|00000720| 2d 62 6f 64 79 20 22 10 | 22 20 61 64 61 2d 70 72 |-body ".|" ada-pr|
|00000730| 6f 63 65 64 75 72 65 2d | 73 70 65 63 20 22 06 22 |ocedure-|spec "."|
|00000740| 20 61 64 61 2d 66 75 6e | 63 74 69 6f 6e 2d 73 70 | ada-fun|ction-sp|
|00000750| 65 63 20 22 70 22 20 61 | 64 61 2d 73 75 62 70 72 |ec "p" a|da-subpr|
|00000760| 6f 67 72 61 6d 2d 62 6f | 64 79 20 22 66 22 20 61 |ogram-bo|dy "f" a|
|00000770| 64 61 2d 66 6f 72 2d 6c | 6f 6f 70 20 22 69 22 20 |da-for-l|oop "i" |
|00000780| 61 64 61 2d 69 66 20 22 | 6c 22 20 61 64 61 2d 6c |ada-if "|l" ada-l|
|00000790| 6f 6f 70 20 22 12 22 20 | 61 64 61 2d 72 65 63 6f |oop "." |ada-reco|
|000007a0| 72 64 20 22 13 22 20 61 | 64 61 2d 73 75 62 74 79 |rd "." a|da-subty|
|000007b0| 70 65 20 22 53 22 20 61 | 64 61 2d 74 61 62 73 69 |pe "S" a|da-tabsi|
|000007c0| 7a 65 20 22 14 22 20 61 | 64 61 2d 74 61 73 6b 2d |ze "." a|da-task-|
|000007d0| 73 70 65 63 20 22 74 22 | 20 61 64 61 2d 74 61 73 |spec "t"| ada-tas|
|000007e0| 6b 2d 62 6f 64 79 20 22 | 19 22 20 61 64 61 2d 74 |k-body "|." ada-t|
|000007f0| 79 70 65 20 22 16 22 20 | 61 64 61 2d 70 72 69 76 |ype "." |ada-priv|
|00000800| 61 74 65 20 22 75 22 20 | 61 64 61 2d 75 73 65 20 |ate "u" |ada-use |
|00000810| 22 15 22 20 61 64 61 2d | 77 69 74 68 20 22 17 22 |"." ada-|with "."|
|00000820| 20 61 64 61 2d 77 68 65 | 6e 20 22 77 22 20 61 64 | ada-whe|n "w" ad|
|00000830| 61 2d 77 68 69 6c 65 2d | 6c 6f 6f 70 20 22 18 22 |a-while-|loop "."|
|00000840| 20 61 64 61 2d 65 78 63 | 65 70 74 69 6f 6e 20 22 | ada-exc|eption "|
|00000850| 78 22 20 61 64 61 2d 65 | 78 69 74 20 61 64 61 2d |x" ada-e|xit ada-|
|00000860| 74 65 6d 70 6c 61 74 65 | 2d 6d 61 70 20 61 64 61 |template|-map ada|
|00000870| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 03 14 22 5d 20 |-mode-ma|p ".."] |
|00000880| 34 29 0a 23 40 35 32 36 | 20 49 6e 73 65 72 74 20 |4).#@526| Insert |
|00000890| 61 72 72 61 79 20 74 79 | 70 65 20 64 65 66 69 6e |array ty|pe defin|
|000008a0| 69 74 69 6f 6e 2e 20 20 | 55 73 65 73 20 74 68 65 |ition.  |Uses the|
|000008b0| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 74 6f 20 70 | minibuf|fer to p|
|000008c0| 72 6f 6d 70 74 0a 66 6f | 72 20 63 6f 6d 70 6f 6e |rompt.fo|r compon|
|000008d0| 65 6e 74 20 74 79 70 65 | 20 61 6e 64 20 69 6e 64 |ent type| and ind|
|000008e0| 65 78 20 73 75 62 74 79 | 70 65 73 2e 0a 0a 54 68 |ex subty|pes...Th|
|000008f0| 69 73 20 69 73 20 61 20 | 73 6b 65 6c 65 74 6f 6e |is is a |skeleton|
|00000900| 20 63 6f 6d 6d 61 6e 64 | 20 28 73 65 65 20 60 73 | command| (see `s|
|00000910| 6b 65 6c 65 74 6f 6e 2d | 69 6e 73 65 72 74 27 29 |keleton-|insert')|
|00000920| 2e 0a 4e 6f 72 6d 61 6c | 6c 79 20 74 68 65 20 73 |..Normal|ly the s|
|00000930| 6b 65 6c 65 74 6f 6e 20 | 74 65 78 74 20 69 73 20 |keleton |text is |
|00000940| 69 6e 73 65 72 74 65 64 | 20 61 74 20 70 6f 69 6e |inserted| at poin|
|00000950| 74 2c 20 77 69 74 68 20 | 6e 6f 74 68 69 6e 67 20 |t, with |nothing |
|00000960| 22 69 6e 73 69 64 65 22 | 2e 0a 49 66 20 74 68 65 |"inside"|..If the|
|00000970| 72 65 20 69 73 20 61 20 | 68 69 67 68 6c 69 67 68 |re is a |highligh|
|00000980| 74 65 64 20 72 65 67 69 | 6f 6e 2c 20 74 68 65 20 |ted regi|on, the |
|00000990| 73 6b 65 6c 65 74 6f 6e | 20 74 65 78 74 20 69 73 |skeleton| text is|
|000009a0| 20 77 72 61 70 70 65 64 | 0a 61 72 6f 75 6e 64 20 | wrapped|.around |
|000009b0| 74 68 65 20 72 65 67 69 | 6f 6e 20 74 65 78 74 2e |the regi|on text.|
|000009c0| 0a 0a 41 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |..A pref|ix argum|
|000009d0| 65 6e 74 20 41 52 47 20 | 73 61 79 73 20 74 6f 20 |ent ARG |says to |
|000009e0| 77 72 61 70 20 74 68 65 | 20 73 6b 65 6c 65 74 6f |wrap the| skeleto|
|000009f0| 6e 20 61 72 6f 75 6e 64 | 20 74 68 65 20 6e 65 78 |n around| the nex|
|00000a00| 74 20 41 52 47 20 77 6f | 72 64 73 2e 0a 41 20 70 |t ARG wo|rds..A p|
|00000a10| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 20 6f |refix ar|gument o|
|00000a20| 66 20 7a 65 72 6f 20 73 | 61 79 73 20 74 6f 20 77 |f zero s|ays to w|
|00000a30| 72 61 70 20 61 72 6f 75 | 6e 64 20 7a 65 72 6f 20 |rap arou|nd zero |
|00000a40| 77 6f 72 64 73 2d 2d 2d | 74 68 61 74 20 69 73 2c |words---|that is,|
|00000a50| 20 6e 6f 74 68 69 6e 67 | 2e 0a 54 68 69 73 20 69 | nothing|..This i|
|00000a60| 73 20 61 20 77 61 79 20 | 6f 66 20 6f 76 65 72 69 |s a way |of overi|
|00000a70| 64 69 6e 67 20 74 68 65 | 20 75 73 65 20 6f 66 20 |ding the| use of |
|00000a80| 61 20 68 69 67 68 6c 69 | 67 68 74 65 64 20 72 65 |a highli|ghted re|
|00000a90| 67 69 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |gion...(|defalias|
|00000aa0| 20 27 61 64 61 2d 61 72 | 72 61 79 20 23 5b 28 26 | 'ada-ar|ray #[(&|
|00000ab0| 6f 70 74 69 6f 6e 61 6c | 20 73 74 72 20 61 72 67 |optional| str arg|
|00000ac0| 29 20 22 c0 c1 5c 6e 0b | 23 87 22 20 5b 73 6b 65 |) "..\n.|#." [ske|
|00000ad0| 6c 65 74 6f 6e 2d 70 72 | 6f 78 79 2d 6e 65 77 20 |leton-pr|oxy-new |
|00000ae0| 28 6e 69 6c 20 22 61 72 | 72 61 79 20 28 22 20 28 |(nil "ar|ray (" (|
|00000af0| 22 69 6e 64 65 78 20 64 | 65 66 69 6e 69 74 69 6f |"index d|efinitio|
|00000b00| 6e 3a 20 22 20 73 74 72 | 20 22 2c 20 22 29 20 2d |n: " str| ", ") -|
|00000b10| 32 20 22 29 20 6f 66 20 | 22 20 5f 20 3f 5c 3b 29 |2 ") of |" _ ?\;)|
|00000b20| 20 73 74 72 20 61 72 67 | 5d 20 34 20 28 23 24 20 | str arg|] 4 (#$ |
|00000b30| 2e 20 32 31 38 35 29 20 | 22 2a 50 5c 6e 50 22 5d |. 2185) |"*P\nP"]|
|00000b40| 29 0a 23 40 35 33 31 20 | 42 75 69 6c 64 20 73 6b |).#@531 |Build sk|
|00000b50| 65 6c 65 74 6f 6e 20 63 | 61 73 65 20 73 74 61 74 |eleton c|ase stat|
|00000b60| 65 6d 65 6e 74 2c 20 70 | 72 6f 6d 70 74 69 6e 67 |ement, p|rompting|
|00000b70| 20 66 6f 72 20 74 68 65 | 20 73 65 6c 65 63 74 6f | for the| selecto|
|00000b80| 72 20 65 78 70 72 65 73 | 73 69 6f 6e 2e 0a 41 6c |r expres|sion..Al|
|00000b90| 73 6f 20 62 75 69 6c 64 | 73 20 74 68 65 20 66 69 |so build|s the fi|
|00000ba0| 72 73 74 20 77 68 65 6e | 20 63 6c 61 75 73 65 2e |rst when| clause.|
|00000bb0| 0a 0a 54 68 69 73 20 69 | 73 20 61 20 73 6b 65 6c |..This i|s a skel|
|00000bc0| 65 74 6f 6e 20 63 6f 6d | 6d 61 6e 64 20 28 73 65 |eton com|mand (se|
|00000bd0| 65 20 60 73 6b 65 6c 65 | 74 6f 6e 2d 69 6e 73 65 |e `skele|ton-inse|
|00000be0| 72 74 27 29 2e 0a 4e 6f | 72 6d 61 6c 6c 79 20 74 |rt')..No|rmally t|
|00000bf0| 68 65 20 73 6b 65 6c 65 | 74 6f 6e 20 74 65 78 74 |he skele|ton text|
|00000c00| 20 69 73 20 69 6e 73 65 | 72 74 65 64 20 61 74 20 | is inse|rted at |
|00000c10| 70 6f 69 6e 74 2c 20 77 | 69 74 68 20 6e 6f 74 68 |point, w|ith noth|
|00000c20| 69 6e 67 20 22 69 6e 73 | 69 64 65 22 2e 0a 49 66 |ing "ins|ide"..If|
|00000c30| 20 74 68 65 72 65 20 69 | 73 20 61 20 68 69 67 68 | there i|s a high|
|00000c40| 6c 69 67 68 74 65 64 20 | 72 65 67 69 6f 6e 2c 20 |lighted |region, |
|00000c50| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 74 65 78 |the skel|eton tex|
|00000c60| 74 20 69 73 20 77 72 61 | 70 70 65 64 0a 61 72 6f |t is wra|pped.aro|
|00000c70| 75 6e 64 20 74 68 65 20 | 72 65 67 69 6f 6e 20 74 |und the |region t|
|00000c80| 65 78 74 2e 0a 0a 41 20 | 70 72 65 66 69 78 20 61 |ext...A |prefix a|
|00000c90| 72 67 75 6d 65 6e 74 20 | 41 52 47 20 73 61 79 73 |rgument |ARG says|
|00000ca0| 20 74 6f 20 77 72 61 70 | 20 74 68 65 20 73 6b 65 | to wrap| the ske|
|00000cb0| 6c 65 74 6f 6e 20 61 72 | 6f 75 6e 64 20 74 68 65 |leton ar|ound the|
|00000cc0| 20 6e 65 78 74 20 41 52 | 47 20 77 6f 72 64 73 2e | next AR|G words.|
|00000cd0| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00000ce0| 6e 74 20 6f 66 20 7a 65 | 72 6f 20 73 61 79 73 20 |nt of ze|ro says |
|00000cf0| 74 6f 20 77 72 61 70 20 | 61 72 6f 75 6e 64 20 7a |to wrap |around z|
|00000d00| 65 72 6f 20 77 6f 72 64 | 73 2d 2d 2d 74 68 61 74 |ero word|s---that|
|00000d10| 20 69 73 2c 20 6e 6f 74 | 68 69 6e 67 2e 0a 54 68 | is, not|hing..Th|
|00000d20| 69 73 20 69 73 20 61 20 | 77 61 79 20 6f 66 20 6f |is is a |way of o|
|00000d30| 76 65 72 69 64 69 6e 67 | 20 74 68 65 20 75 73 65 |veriding| the use|
|00000d40| 20 6f 66 20 61 20 68 69 | 67 68 6c 69 67 68 74 65 | of a hi|ghlighte|
|00000d50| 64 20 72 65 67 69 6f 6e | 2e 1f 0a 28 64 65 66 61 |d region|...(defa|
|00000d60| 6c 69 61 73 20 27 61 64 | 61 2d 63 61 73 65 20 23 |lias 'ad|a-case #|
|00000d70| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 74 72 20 |[(&optio|nal str |
|00000d80| 61 72 67 29 20 22 c0 c1 | 5c 6e 0b 23 87 22 20 5b |arg) "..|\n.#." [|
|00000d90| 73 6b 65 6c 65 74 6f 6e | 2d 70 72 6f 78 79 2d 6e |skeleton|-proxy-n|
|00000da0| 65 77 20 28 22 5b 73 65 | 6c 65 63 74 6f 72 20 65 |ew ("[se|lector e|
|00000db0| 78 70 72 65 73 73 69 6f | 6e 5d 3a 20 22 20 22 63 |xpressio|n]: " "c|
|00000dc0| 61 73 65 20 22 20 73 74 | 72 20 22 20 69 73 22 20 |ase " st|r " is" |
|00000dd0| 6e 20 3e 20 22 77 68 65 | 6e 20 22 20 28 22 64 69 |n > "whe|n " ("di|
|00000de0| 73 63 72 65 74 65 20 63 | 68 6f 69 63 65 3a 20 22 |screte c|hoice: "|
|00000df0| 20 73 74 72 20 22 20 7c | 20 22 29 20 2d 33 20 22 | str " || ") -3 "|
|00000e00| 20 3d 3e 22 20 6e 20 3e | 20 5f 20 6e 20 3c 20 3c | =>" n >| _ n < <|
|00000e10| 20 22 65 6e 64 20 63 61 | 73 65 3b 22 29 20 73 74 | "end ca|se;") st|
|00000e20| 72 20 61 72 67 5d 20 34 | 20 28 23 24 20 2e 20 32 |r arg] 4| (#$ . 2|
|00000e30| 38 38 38 29 20 22 2a 50 | 5c 6e 50 22 5d 29 0a 23 |888) "*P|\nP"]).#|
|00000e40| 40 34 38 31 20 53 74 61 | 72 74 20 61 20 63 61 73 |@481 Sta|rt a cas|
|00000e50| 65 20 73 74 61 74 65 6d | 65 6e 74 20 61 6c 74 65 |e statem|ent alte|
|00000e60| 72 6e 61 74 69 76 65 20 | 77 69 74 68 20 61 20 77 |rnative |with a w|
|00000e70| 68 65 6e 20 63 6c 61 75 | 73 65 2e 0a 0a 54 68 69 |hen clau|se...Thi|
|00000e80| 73 20 69 73 20 61 20 73 | 6b 65 6c 65 74 6f 6e 20 |s is a s|keleton |
|00000e90| 63 6f 6d 6d 61 6e 64 20 | 28 73 65 65 20 60 73 6b |command |(see `sk|
|00000ea0| 65 6c 65 74 6f 6e 2d 69 | 6e 73 65 72 74 27 29 2e |eleton-i|nsert').|
|00000eb0| 0a 4e 6f 72 6d 61 6c 6c | 79 20 74 68 65 20 73 6b |.Normall|y the sk|
|00000ec0| 65 6c 65 74 6f 6e 20 74 | 65 78 74 20 69 73 20 69 |eleton t|ext is i|
|00000ed0| 6e 73 65 72 74 65 64 20 | 61 74 20 70 6f 69 6e 74 |nserted |at point|
|00000ee0| 2c 20 77 69 74 68 20 6e | 6f 74 68 69 6e 67 20 22 |, with n|othing "|
|00000ef0| 69 6e 73 69 64 65 22 2e | 0a 49 66 20 74 68 65 72 |inside".|.If ther|
|00000f00| 65 20 69 73 20 61 20 68 | 69 67 68 6c 69 67 68 74 |e is a h|ighlight|
|00000f10| 65 64 20 72 65 67 69 6f | 6e 2c 20 74 68 65 20 73 |ed regio|n, the s|
|00000f20| 6b 65 6c 65 74 6f 6e 20 | 74 65 78 74 20 69 73 20 |keleton |text is |
|00000f30| 77 72 61 70 70 65 64 0a | 61 72 6f 75 6e 64 20 74 |wrapped.|around t|
|00000f40| 68 65 20 72 65 67 69 6f | 6e 20 74 65 78 74 2e 0a |he regio|n text..|
|00000f50| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00000f60| 6e 74 20 41 52 47 20 73 | 61 79 73 20 74 6f 20 77 |nt ARG s|ays to w|
|00000f70| 72 61 70 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |rap the |skeleton|
|00000f80| 20 61 72 6f 75 6e 64 20 | 74 68 65 20 6e 65 78 74 | around |the next|
|00000f90| 20 41 52 47 20 77 6f 72 | 64 73 2e 0a 41 20 70 72 | ARG wor|ds..A pr|
|00000fa0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 6f 66 |efix arg|ument of|
|00000fb0| 20 7a 65 72 6f 20 73 61 | 79 73 20 74 6f 20 77 72 | zero sa|ys to wr|
|00000fc0| 61 70 20 61 72 6f 75 6e | 64 20 7a 65 72 6f 20 77 |ap aroun|d zero w|
|00000fd0| 6f 72 64 73 2d 2d 2d 74 | 68 61 74 20 69 73 2c 20 |ords---t|hat is, |
|00000fe0| 6e 6f 74 68 69 6e 67 2e | 0a 54 68 69 73 20 69 73 |nothing.|.This is|
|00000ff0| 20 61 20 77 61 79 20 6f | 66 20 6f 76 65 72 69 64 | a way o|f overid|
|00001000| 69 6e 67 20 74 68 65 20 | 75 73 65 20 6f 66 20 61 |ing the |use of a|
|00001010| 20 68 69 67 68 6c 69 67 | 68 74 65 64 20 72 65 67 | highlig|hted reg|
|00001020| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00001030| 27 61 64 61 2d 77 68 65 | 6e 20 23 5b 28 26 6f 70 |'ada-whe|n #[(&op|
|00001040| 74 69 6f 6e 61 6c 20 73 | 74 72 20 61 72 67 29 20 |tional s|tr arg) |
|00001050| 22 c0 c1 5c 6e 0b 23 87 | 22 20 5b 73 6b 65 6c 65 |"..\n.#.|" [skele|
|00001060| 74 6f 6e 2d 70 72 6f 78 | 79 2d 6e 65 77 20 28 6e |ton-prox|y-new (n|
|00001070| 69 6c 20 3c 20 22 77 68 | 65 6e 20 22 20 28 22 64 |il < "wh|en " ("d|
|00001080| 69 73 63 72 65 74 65 20 | 63 68 6f 69 63 65 3a 20 |iscrete |choice: |
|00001090| 22 20 73 74 72 20 22 20 | 7c 20 22 29 20 2d 33 20 |" str " || ") -3 |
|000010a0| 22 20 3d 3e 22 20 6e 20 | 3e 29 20 73 74 72 20 61 |" =>" n |>) str a|
|000010b0| 72 67 5d 20 34 20 28 23 | 24 20 2e 20 33 36 35 33 |rg] 4 (#|$ . 3653|
|000010c0| 29 20 22 2a 50 5c 6e 50 | 22 5d 29 0a 23 40 34 39 |) "*P\nP|"]).#@49|
|000010d0| 36 20 49 6e 73 65 72 74 | 20 61 20 62 6c 6f 63 6b |6 Insert| a block|
|000010e0| 20 77 69 74 68 20 61 20 | 64 65 63 6c 61 72 65 20 | with a |declare |
|000010f0| 70 61 72 74 2e 0a 49 6e | 64 65 6e 74 20 66 6f 72 |part..In|dent for|
|00001100| 20 74 68 65 20 66 69 72 | 73 74 20 64 65 63 6c 61 | the fir|st decla|
|00001110| 72 61 74 69 6f 6e 2e 0a | 0a 54 68 69 73 20 69 73 |ration..|.This is|
|00001120| 20 61 20 73 6b 65 6c 65 | 74 6f 6e 20 63 6f 6d 6d | a skele|ton comm|
|00001130| 61 6e 64 20 28 73 65 65 | 20 60 73 6b 65 6c 65 74 |and (see| `skelet|
|00001140| 6f 6e 2d 69 6e 73 65 72 | 74 27 29 2e 0a 4e 6f 72 |on-inser|t')..Nor|
|00001150| 6d 61 6c 6c 79 20 74 68 | 65 20 73 6b 65 6c 65 74 |mally th|e skelet|
|00001160| 6f 6e 20 74 65 78 74 20 | 69 73 20 69 6e 73 65 72 |on text |is inser|
|00001170| 74 65 64 20 61 74 20 70 | 6f 69 6e 74 2c 20 77 69 |ted at p|oint, wi|
|00001180| 74 68 20 6e 6f 74 68 69 | 6e 67 20 22 69 6e 73 69 |th nothi|ng "insi|
|00001190| 64 65 22 2e 0a 49 66 20 | 74 68 65 72 65 20 69 73 |de"..If |there is|
|000011a0| 20 61 20 68 69 67 68 6c | 69 67 68 74 65 64 20 72 | a highl|ighted r|
|000011b0| 65 67 69 6f 6e 2c 20 74 | 68 65 20 73 6b 65 6c 65 |egion, t|he skele|
|000011c0| 74 6f 6e 20 74 65 78 74 | 20 69 73 20 77 72 61 70 |ton text| is wrap|
|000011d0| 70 65 64 0a 61 72 6f 75 | 6e 64 20 74 68 65 20 72 |ped.arou|nd the r|
|000011e0| 65 67 69 6f 6e 20 74 65 | 78 74 2e 0a 0a 41 20 70 |egion te|xt...A p|
|000011f0| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 20 41 |refix ar|gument A|
|00001200| 52 47 20 73 61 79 73 20 | 74 6f 20 77 72 61 70 20 |RG says |to wrap |
|00001210| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 61 72 6f |the skel|eton aro|
|00001220| 75 6e 64 20 74 68 65 20 | 6e 65 78 74 20 41 52 47 |und the |next ARG|
|00001230| 20 77 6f 72 64 73 2e 0a | 41 20 70 72 65 66 69 78 | words..|A prefix|
|00001240| 20 61 72 67 75 6d 65 6e | 74 20 6f 66 20 7a 65 72 | argumen|t of zer|
|00001250| 6f 20 73 61 79 73 20 74 | 6f 20 77 72 61 70 20 61 |o says t|o wrap a|
|00001260| 72 6f 75 6e 64 20 7a 65 | 72 6f 20 77 6f 72 64 73 |round ze|ro words|
|00001270| 2d 2d 2d 74 68 61 74 20 | 69 73 2c 20 6e 6f 74 68 |---that |is, noth|
|00001280| 69 6e 67 2e 0a 54 68 69 | 73 20 69 73 20 61 20 77 |ing..Thi|s is a w|
|00001290| 61 79 20 6f 66 20 6f 76 | 65 72 69 64 69 6e 67 20 |ay of ov|eriding |
|000012a0| 74 68 65 20 75 73 65 20 | 6f 66 20 61 20 68 69 67 |the use |of a hig|
|000012b0| 68 6c 69 67 68 74 65 64 | 20 72 65 67 69 6f 6e 2e |hlighted| region.|
|000012c0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |..(defal|ias 'ada|
|000012d0| 2d 64 65 63 6c 61 72 65 | 2d 62 6c 6f 63 6b 20 23 |-declare|-block #|
|000012e0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 74 72 20 |[(&optio|nal str |
|000012f0| 61 72 67 29 20 22 c0 c1 | 5c 6e 0b 23 87 22 20 5b |arg) "..|\n.#." [|
|00001300| 73 6b 65 6c 65 74 6f 6e | 2d 70 72 6f 78 79 2d 6e |skeleton|-proxy-n|
|00001310| 65 77 20 28 22 5b 62 6c | 6f 63 6b 20 6e 61 6d 65 |ew ("[bl|ock name|
|00001320| 5d 3a 20 22 20 3c 20 73 | 74 72 20 26 20 3f 5c 3a |]: " < s|tr & ?\:|
|00001330| 20 26 20 6e 20 3e 20 22 | 64 65 63 6c 61 72 65 22 | & n > "|declare"|
|00001340| 20 6e 20 3e 20 5f 20 6e | 20 3c 20 22 62 65 67 69 | n > _ n| < "begi|
|00001350| 6e 22 20 6e 20 3e 20 6e | 20 3c 20 22 65 6e 64 20 |n" n > n| < "end |
|00001360| 22 20 73 74 72 20 7c 20 | 2d 31 20 3f 5c 3b 29 20 |" str | |-1 ?\;) |
|00001370| 73 74 72 20 61 72 67 5d | 20 34 20 28 23 24 20 2e |str arg]| 4 (#$ .|
|00001380| 20 34 33 30 36 29 20 22 | 2a 50 5c 6e 50 22 5d 29 | 4306) "|*P\nP"])|
|00001390| 0a 23 40 35 30 30 20 49 | 6e 73 65 72 74 20 61 20 |.#@500 I|nsert a |
|000013a0| 62 6c 6f 63 6b 20 77 69 | 74 68 20 61 6e 20 65 78 |block wi|th an ex|
|000013b0| 63 65 70 74 69 6f 6e 20 | 70 61 72 74 2e 0a 49 6e |ception |part..In|
|000013c0| 64 65 6e 74 20 66 6f 72 | 20 74 68 65 20 66 69 72 |dent for| the fir|
|000013d0| 73 74 20 6c 69 6e 65 20 | 6f 66 20 63 6f 64 65 2e |st line |of code.|
|000013e0| 0a 0a 54 68 69 73 20 69 | 73 20 61 20 73 6b 65 6c |..This i|s a skel|
|000013f0| 65 74 6f 6e 20 63 6f 6d | 6d 61 6e 64 20 28 73 65 |eton com|mand (se|
|00001400| 65 20 60 73 6b 65 6c 65 | 74 6f 6e 2d 69 6e 73 65 |e `skele|ton-inse|
|00001410| 72 74 27 29 2e 0a 4e 6f | 72 6d 61 6c 6c 79 20 74 |rt')..No|rmally t|
|00001420| 68 65 20 73 6b 65 6c 65 | 74 6f 6e 20 74 65 78 74 |he skele|ton text|
|00001430| 20 69 73 20 69 6e 73 65 | 72 74 65 64 20 61 74 20 | is inse|rted at |
|00001440| 70 6f 69 6e 74 2c 20 77 | 69 74 68 20 6e 6f 74 68 |point, w|ith noth|
|00001450| 69 6e 67 20 22 69 6e 73 | 69 64 65 22 2e 0a 49 66 |ing "ins|ide"..If|
|00001460| 20 74 68 65 72 65 20 69 | 73 20 61 20 68 69 67 68 | there i|s a high|
|00001470| 6c 69 67 68 74 65 64 20 | 72 65 67 69 6f 6e 2c 20 |lighted |region, |
|00001480| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 74 65 78 |the skel|eton tex|
|00001490| 74 20 69 73 20 77 72 61 | 70 70 65 64 0a 61 72 6f |t is wra|pped.aro|
|000014a0| 75 6e 64 20 74 68 65 20 | 72 65 67 69 6f 6e 20 74 |und the |region t|
|000014b0| 65 78 74 2e 0a 0a 41 20 | 70 72 65 66 69 78 20 61 |ext...A |prefix a|
|000014c0| 72 67 75 6d 65 6e 74 20 | 41 52 47 20 73 61 79 73 |rgument |ARG says|
|000014d0| 20 74 6f 20 77 72 61 70 | 20 74 68 65 20 73 6b 65 | to wrap| the ske|
|000014e0| 6c 65 74 6f 6e 20 61 72 | 6f 75 6e 64 20 74 68 65 |leton ar|ound the|
|000014f0| 20 6e 65 78 74 20 41 52 | 47 20 77 6f 72 64 73 2e | next AR|G words.|
|00001500| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00001510| 6e 74 20 6f 66 20 7a 65 | 72 6f 20 73 61 79 73 20 |nt of ze|ro says |
|00001520| 74 6f 20 77 72 61 70 20 | 61 72 6f 75 6e 64 20 7a |to wrap |around z|
|00001530| 65 72 6f 20 77 6f 72 64 | 73 2d 2d 2d 74 68 61 74 |ero word|s---that|
|00001540| 20 69 73 2c 20 6e 6f 74 | 68 69 6e 67 2e 0a 54 68 | is, not|hing..Th|
|00001550| 69 73 20 69 73 20 61 20 | 77 61 79 20 6f 66 20 6f |is is a |way of o|
|00001560| 76 65 72 69 64 69 6e 67 | 20 74 68 65 20 75 73 65 |veriding| the use|
|00001570| 20 6f 66 20 61 20 68 69 | 67 68 6c 69 67 68 74 65 | of a hi|ghlighte|
|00001580| 64 20 72 65 67 69 6f 6e | 2e 1f 0a 28 64 65 66 61 |d region|...(defa|
|00001590| 6c 69 61 73 20 27 61 64 | 61 2d 65 78 63 65 70 74 |lias 'ad|a-except|
|000015a0| 69 6f 6e 2d 62 6c 6f 63 | 6b 20 23 5b 28 26 6f 70 |ion-bloc|k #[(&op|
|000015b0| 74 69 6f 6e 61 6c 20 73 | 74 72 20 61 72 67 29 20 |tional s|tr arg) |
|000015c0| 22 c0 c1 5c 6e 0b 23 87 | 22 20 5b 73 6b 65 6c 65 |"..\n.#.|" [skele|
|000015d0| 74 6f 6e 2d 70 72 6f 78 | 79 2d 6e 65 77 20 28 22 |ton-prox|y-new ("|
|000015e0| 5b 62 6c 6f 63 6b 20 6e | 61 6d 65 5d 3a 20 22 20 |[block n|ame]: " |
|000015f0| 3c 20 73 74 72 20 26 20 | 3f 5c 3a 20 26 20 6e 20 |< str & |?\: & n |
|00001600| 3e 20 22 62 65 67 69 6e | 22 20 6e 20 3e 20 5f 20 |> "begin|" n > _ |
|00001610| 6e 20 3c 20 22 65 78 63 | 65 70 74 69 6f 6e 22 20 |n < "exc|eption" |
|00001620| 6e 20 3e 20 6e 20 3c 20 | 22 65 6e 64 20 22 20 73 |n > n < |"end " s|
|00001630| 74 72 20 7c 20 2d 31 20 | 3f 5c 3b 29 20 73 74 72 |tr | -1 |?\;) str|
|00001640| 20 61 72 67 5d 20 34 20 | 28 23 24 20 2e 20 35 30 | arg] 4 |(#$ . 50|
|00001650| 31 35 29 20 22 2a 50 5c | 6e 50 22 5d 29 0a 23 40 |15) "*P\|nP"]).#@|
|00001660| 34 37 34 20 49 6e 73 65 | 72 74 20 61 6e 20 69 6e |474 Inse|rt an in|
|00001670| 64 65 6e 74 65 64 20 65 | 78 63 65 70 74 69 6f 6e |dented e|xception|
|00001680| 20 70 61 72 74 20 69 6e | 74 6f 20 61 20 62 6c 6f | part in|to a blo|
|00001690| 63 6b 2e 0a 0a 54 68 69 | 73 20 69 73 20 61 20 73 |ck...Thi|s is a s|
|000016a0| 6b 65 6c 65 74 6f 6e 20 | 63 6f 6d 6d 61 6e 64 20 |keleton |command |
|000016b0| 28 73 65 65 20 60 73 6b | 65 6c 65 74 6f 6e 2d 69 |(see `sk|eleton-i|
|000016c0| 6e 73 65 72 74 27 29 2e | 0a 4e 6f 72 6d 61 6c 6c |nsert').|.Normall|
|000016d0| 79 20 74 68 65 20 73 6b | 65 6c 65 74 6f 6e 20 74 |y the sk|eleton t|
|000016e0| 65 78 74 20 69 73 20 69 | 6e 73 65 72 74 65 64 20 |ext is i|nserted |
|000016f0| 61 74 20 70 6f 69 6e 74 | 2c 20 77 69 74 68 20 6e |at point|, with n|
|00001700| 6f 74 68 69 6e 67 20 22 | 69 6e 73 69 64 65 22 2e |othing "|inside".|
|00001710| 0a 49 66 20 74 68 65 72 | 65 20 69 73 20 61 20 68 |.If ther|e is a h|
|00001720| 69 67 68 6c 69 67 68 74 | 65 64 20 72 65 67 69 6f |ighlight|ed regio|
|00001730| 6e 2c 20 74 68 65 20 73 | 6b 65 6c 65 74 6f 6e 20 |n, the s|keleton |
|00001740| 74 65 78 74 20 69 73 20 | 77 72 61 70 70 65 64 0a |text is |wrapped.|
|00001750| 61 72 6f 75 6e 64 20 74 | 68 65 20 72 65 67 69 6f |around t|he regio|
|00001760| 6e 20 74 65 78 74 2e 0a | 0a 41 20 70 72 65 66 69 |n text..|.A prefi|
|00001770| 78 20 61 72 67 75 6d 65 | 6e 74 20 41 52 47 20 73 |x argume|nt ARG s|
|00001780| 61 79 73 20 74 6f 20 77 | 72 61 70 20 74 68 65 20 |ays to w|rap the |
|00001790| 73 6b 65 6c 65 74 6f 6e | 20 61 72 6f 75 6e 64 20 |skeleton| around |
|000017a0| 74 68 65 20 6e 65 78 74 | 20 41 52 47 20 77 6f 72 |the next| ARG wor|
|000017b0| 64 73 2e 0a 41 20 70 72 | 65 66 69 78 20 61 72 67 |ds..A pr|efix arg|
|000017c0| 75 6d 65 6e 74 20 6f 66 | 20 7a 65 72 6f 20 73 61 |ument of| zero sa|
|000017d0| 79 73 20 74 6f 20 77 72 | 61 70 20 61 72 6f 75 6e |ys to wr|ap aroun|
|000017e0| 64 20 7a 65 72 6f 20 77 | 6f 72 64 73 2d 2d 2d 74 |d zero w|ords---t|
|000017f0| 68 61 74 20 69 73 2c 20 | 6e 6f 74 68 69 6e 67 2e |hat is, |nothing.|
|00001800| 0a 54 68 69 73 20 69 73 | 20 61 20 77 61 79 20 6f |.This is| a way o|
|00001810| 66 20 6f 76 65 72 69 64 | 69 6e 67 20 74 68 65 20 |f overid|ing the |
|00001820| 75 73 65 20 6f 66 20 61 | 20 68 69 67 68 6c 69 67 |use of a| highlig|
|00001830| 68 74 65 64 20 72 65 67 | 69 6f 6e 2e 1f 0a 28 64 |hted reg|ion...(d|
|00001840| 65 66 61 6c 69 61 73 20 | 27 61 64 61 2d 65 78 63 |efalias |'ada-exc|
|00001850| 65 70 74 69 6f 6e 20 23 | 5b 28 26 6f 70 74 69 6f |eption #|[(&optio|
|00001860| 6e 61 6c 20 73 74 72 20 | 61 72 67 29 20 22 c0 c1 |nal str |arg) "..|
|00001870| 5c 6e 0b 23 87 22 20 5b | 73 6b 65 6c 65 74 6f 6e |\n.#." [|skeleton|
|00001880| 2d 70 72 6f 78 79 2d 6e | 65 77 20 28 6e 69 6c 20 |-proxy-n|ew (nil |
|00001890| 3c 20 22 65 78 63 65 70 | 74 69 6f 6e 22 20 6e 20 |< "excep|tion" n |
|000018a0| 3e 29 20 73 74 72 20 61 | 72 67 5d 20 34 20 28 23 |>) str a|rg] 4 (#|
|000018b0| 24 20 2e 20 35 37 33 32 | 29 20 22 2a 50 5c 6e 50 |$ . 5732|) "*P\nP|
|000018c0| 22 5d 29 0a 23 40 35 30 | 31 20 49 6e 73 65 72 74 |"]).#@50|1 Insert|
|000018d0| 20 74 68 65 6e 20 65 78 | 69 74 20 63 6f 6e 64 69 | then ex|it condi|
|000018e0| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 65 78 69 74 |tion of |the exit|
|000018f0| 20 73 74 61 74 65 6d 65 | 6e 74 2c 20 70 72 6f 6d | stateme|nt, prom|
|00001900| 70 74 69 6e 67 20 66 6f | 72 20 63 6f 6e 64 69 74 |pting fo|r condit|
|00001910| 69 6f 6e 2e 0a 0a 54 68 | 69 73 20 69 73 20 61 20 |ion...Th|is is a |
|00001920| 73 6b 65 6c 65 74 6f 6e | 20 63 6f 6d 6d 61 6e 64 |skeleton| command|
|00001930| 20 28 73 65 65 20 60 73 | 6b 65 6c 65 74 6f 6e 2d | (see `s|keleton-|
|00001940| 69 6e 73 65 72 74 27 29 | 2e 0a 4e 6f 72 6d 61 6c |insert')|..Normal|
|00001950| 6c 79 20 74 68 65 20 73 | 6b 65 6c 65 74 6f 6e 20 |ly the s|keleton |
|00001960| 74 65 78 74 20 69 73 20 | 69 6e 73 65 72 74 65 64 |text is |inserted|
|00001970| 20 61 74 20 70 6f 69 6e | 74 2c 20 77 69 74 68 20 | at poin|t, with |
|00001980| 6e 6f 74 68 69 6e 67 20 | 22 69 6e 73 69 64 65 22 |nothing |"inside"|
|00001990| 2e 0a 49 66 20 74 68 65 | 72 65 20 69 73 20 61 20 |..If the|re is a |
|000019a0| 68 69 67 68 6c 69 67 68 | 74 65 64 20 72 65 67 69 |highligh|ted regi|
|000019b0| 6f 6e 2c 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |on, the |skeleton|
|000019c0| 20 74 65 78 74 20 69 73 | 20 77 72 61 70 70 65 64 | text is| wrapped|
|000019d0| 0a 61 72 6f 75 6e 64 20 | 74 68 65 20 72 65 67 69 |.around |the regi|
|000019e0| 6f 6e 20 74 65 78 74 2e | 0a 0a 41 20 70 72 65 66 |on text.|..A pref|
|000019f0| 69 78 20 61 72 67 75 6d | 65 6e 74 20 41 52 47 20 |ix argum|ent ARG |
|00001a00| 73 61 79 73 20 74 6f 20 | 77 72 61 70 20 74 68 65 |says to |wrap the|
|00001a10| 20 73 6b 65 6c 65 74 6f | 6e 20 61 72 6f 75 6e 64 | skeleto|n around|
|00001a20| 20 74 68 65 20 6e 65 78 | 74 20 41 52 47 20 77 6f | the nex|t ARG wo|
|00001a30| 72 64 73 2e 0a 41 20 70 | 72 65 66 69 78 20 61 72 |rds..A p|refix ar|
|00001a40| 67 75 6d 65 6e 74 20 6f | 66 20 7a 65 72 6f 20 73 |gument o|f zero s|
|00001a50| 61 79 73 20 74 6f 20 77 | 72 61 70 20 61 72 6f 75 |ays to w|rap arou|
|00001a60| 6e 64 20 7a 65 72 6f 20 | 77 6f 72 64 73 2d 2d 2d |nd zero |words---|
|00001a70| 74 68 61 74 20 69 73 2c | 20 6e 6f 74 68 69 6e 67 |that is,| nothing|
|00001a80| 2e 0a 54 68 69 73 20 69 | 73 20 61 20 77 61 79 20 |..This i|s a way |
|00001a90| 6f 66 20 6f 76 65 72 69 | 64 69 6e 67 20 74 68 65 |of overi|ding the|
|00001aa0| 20 75 73 65 20 6f 66 20 | 61 20 68 69 67 68 6c 69 | use of |a highli|
|00001ab0| 67 68 74 65 64 20 72 65 | 67 69 6f 6e 2e 1f 0a 28 |ghted re|gion...(|
|00001ac0| 64 65 66 61 6c 69 61 73 | 20 27 61 64 61 2d 65 78 |defalias| 'ada-ex|
|00001ad0| 69 74 2d 31 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |it-1 #[(|&optiona|
|00001ae0| 6c 20 73 74 72 20 61 72 | 67 29 20 22 c0 c1 5c 6e |l str ar|g) "..\n|
|00001af0| 0b 23 87 22 20 5b 73 6b | 65 6c 65 74 6f 6e 2d 70 |.#." [sk|eleton-p|
|00001b00| 72 6f 78 79 2d 6e 65 77 | 20 28 22 5b 65 78 69 74 |roxy-new| ("[exit|
|00001b10| 20 63 6f 6e 64 69 74 69 | 6f 6e 5d 3a 20 22 20 22 | conditi|on]: " "|
|00001b20| 77 68 65 6e 20 22 20 73 | 74 72 20 7c 20 2d 35 29 |when " s|tr | -5)|
|00001b30| 20 73 74 72 20 61 72 67 | 5d 20 34 20 28 23 24 20 | str arg|] 4 (#$ |
|00001b40| 2e 20 36 33 34 36 29 20 | 22 2a 50 5c 6e 50 22 5d |. 6346) |"*P\nP"]|
|00001b50| 29 0a 23 40 34 39 31 20 | 49 6e 73 65 72 74 20 61 |).#@491 |Insert a|
|00001b60| 6e 20 65 78 69 74 20 73 | 74 61 74 65 6d 65 6e 74 |n exit s|tatement|
|00001b70| 2c 20 70 72 6f 6d 70 74 | 69 6e 67 20 66 6f 72 20 |, prompt|ing for |
|00001b80| 6c 6f 6f 70 20 6e 61 6d | 65 20 61 6e 64 20 63 6f |loop nam|e and co|
|00001b90| 6e 64 69 74 69 6f 6e 2e | 0a 0a 54 68 69 73 20 69 |ndition.|..This i|
|00001ba0| 73 20 61 20 73 6b 65 6c | 65 74 6f 6e 20 63 6f 6d |s a skel|eton com|
|00001bb0| 6d 61 6e 64 20 28 73 65 | 65 20 60 73 6b 65 6c 65 |mand (se|e `skele|
|00001bc0| 74 6f 6e 2d 69 6e 73 65 | 72 74 27 29 2e 0a 4e 6f |ton-inse|rt')..No|
|00001bd0| 72 6d 61 6c 6c 79 20 74 | 68 65 20 73 6b 65 6c 65 |rmally t|he skele|
|00001be0| 74 6f 6e 20 74 65 78 74 | 20 69 73 20 69 6e 73 65 |ton text| is inse|
|00001bf0| 72 74 65 64 20 61 74 20 | 70 6f 69 6e 74 2c 20 77 |rted at |point, w|
|00001c00| 69 74 68 20 6e 6f 74 68 | 69 6e 67 20 22 69 6e 73 |ith noth|ing "ins|
|00001c10| 69 64 65 22 2e 0a 49 66 | 20 74 68 65 72 65 20 69 |ide"..If| there i|
|00001c20| 73 20 61 20 68 69 67 68 | 6c 69 67 68 74 65 64 20 |s a high|lighted |
|00001c30| 72 65 67 69 6f 6e 2c 20 | 74 68 65 20 73 6b 65 6c |region, |the skel|
|00001c40| 65 74 6f 6e 20 74 65 78 | 74 20 69 73 20 77 72 61 |eton tex|t is wra|
|00001c50| 70 70 65 64 0a 61 72 6f | 75 6e 64 20 74 68 65 20 |pped.aro|und the |
|00001c60| 72 65 67 69 6f 6e 20 74 | 65 78 74 2e 0a 0a 41 20 |region t|ext...A |
|00001c70| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 20 |prefix a|rgument |
|00001c80| 41 52 47 20 73 61 79 73 | 20 74 6f 20 77 72 61 70 |ARG says| to wrap|
|00001c90| 20 74 68 65 20 73 6b 65 | 6c 65 74 6f 6e 20 61 72 | the ske|leton ar|
|00001ca0| 6f 75 6e 64 20 74 68 65 | 20 6e 65 78 74 20 41 52 |ound the| next AR|
|00001cb0| 47 20 77 6f 72 64 73 2e | 0a 41 20 70 72 65 66 69 |G words.|.A prefi|
|00001cc0| 78 20 61 72 67 75 6d 65 | 6e 74 20 6f 66 20 7a 65 |x argume|nt of ze|
|00001cd0| 72 6f 20 73 61 79 73 20 | 74 6f 20 77 72 61 70 20 |ro says |to wrap |
|00001ce0| 61 72 6f 75 6e 64 20 7a | 65 72 6f 20 77 6f 72 64 |around z|ero word|
|00001cf0| 73 2d 2d 2d 74 68 61 74 | 20 69 73 2c 20 6e 6f 74 |s---that| is, not|
|00001d00| 68 69 6e 67 2e 0a 54 68 | 69 73 20 69 73 20 61 20 |hing..Th|is is a |
|00001d10| 77 61 79 20 6f 66 20 6f | 76 65 72 69 64 69 6e 67 |way of o|veriding|
|00001d20| 20 74 68 65 20 75 73 65 | 20 6f 66 20 61 20 68 69 | the use| of a hi|
|00001d30| 67 68 6c 69 67 68 74 65 | 64 20 72 65 67 69 6f 6e |ghlighte|d region|
|00001d40| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 64 |...(defa|lias 'ad|
|00001d50| 61 2d 65 78 69 74 20 23 | 5b 28 26 6f 70 74 69 6f |a-exit #|[(&optio|
|00001d60| 6e 61 6c 20 73 74 72 20 | 61 72 67 29 20 22 c0 c1 |nal str |arg) "..|
|00001d70| 5c 6e 0b 23 87 22 20 5b | 73 6b 65 6c 65 74 6f 6e |\n.#." [|skeleton|
|00001d80| 2d 70 72 6f 78 79 2d 6e | 65 77 20 28 22 5b 6e 61 |-proxy-n|ew ("[na|
|00001d90| 6d 65 20 6f 66 20 6c 6f | 6f 70 20 74 6f 20 65 78 |me of lo|op to ex|
|00001da0| 69 74 5d 3a 20 22 20 22 | 65 78 69 74 20 22 20 73 |it]: " "|exit " s|
|00001db0| 74 72 20 26 20 3f 5c 20 | 20 28 61 64 61 2d 65 78 |tr & ?\ | (ada-ex|
|00001dc0| 69 74 2d 31 29 20 7c 20 | 2d 31 20 3f 5c 3b 29 20 |it-1) | |-1 ?\;) |
|00001dd0| 73 74 72 20 61 72 67 5d | 20 34 20 28 23 24 20 2e |str arg]| 4 (#$ .|
|00001de0| 20 37 30 30 30 29 20 22 | 2a 50 5c 6e 50 22 5d 29 | 7000) "|*P\nP"])|
|00001df0| 0a 23 40 35 33 20 49 6e | 73 65 72 74 20 61 20 64 |.#@53 In|sert a d|
|00001e00| 65 73 63 72 69 70 74 69 | 76 65 20 68 65 61 64 65 |escripti|ve heade|
|00001e10| 72 20 61 74 20 74 68 65 | 20 74 6f 70 20 6f 66 20 |r at the| top of |
|00001e20| 74 68 65 20 66 69 6c 65 | 2e 1f 0a 28 64 65 66 61 |the file|...(defa|
|00001e30| 6c 69 61 73 20 27 61 64 | 61 2d 68 65 61 64 65 72 |lias 'ad|a-header|
|00001e40| 20 23 5b 6e 69 6c 20 22 | 8a 65 62 88 c0 c1 21 ab | #[nil "|.eb...!.|
|00001e50| 84 c1 20 aa 82 c2 20 29 | 87 22 20 5b 66 62 6f 75 |.. ... )|." [fbou|
|00001e60| 6e 64 70 20 6d 61 6b 65 | 2d 68 65 61 64 65 72 20 |ndp make|-header |
|00001e70| 61 64 61 2d 68 65 61 64 | 65 72 2d 74 6d 70 6c 5d |ada-head|er-tmpl]|
|00001e80| 20 32 20 28 23 24 20 2e | 20 37 36 37 30 29 20 22 | 2 (#$ .| 7670) "|
|00001e90| 2a 22 5d 29 0a 23 40 34 | 39 31 20 49 6e 73 65 72 |*"]).#@4|91 Inser|
|00001ea0| 74 20 61 20 63 6f 6d 6d | 65 6e 74 20 62 6c 6f 63 |t a comm|ent bloc|
|00001eb0| 6b 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 74 68 65 |k contai|ning the|
|00001ec0| 20 6d 6f 64 75 6c 65 20 | 74 69 74 6c 65 2c 20 61 | module |title, a|
|00001ed0| 75 74 68 6f 72 2c 20 65 | 74 63 2e 0a 0a 54 68 69 |uthor, e|tc...Thi|
|00001ee0| 73 20 69 73 20 61 20 73 | 6b 65 6c 65 74 6f 6e 20 |s is a s|keleton |
|00001ef0| 63 6f 6d 6d 61 6e 64 20 | 28 73 65 65 20 60 73 6b |command |(see `sk|
|00001f00| 65 6c 65 74 6f 6e 2d 69 | 6e 73 65 72 74 27 29 2e |eleton-i|nsert').|
|00001f10| 0a 4e 6f 72 6d 61 6c 6c | 79 20 74 68 65 20 73 6b |.Normall|y the sk|
|00001f20| 65 6c 65 74 6f 6e 20 74 | 65 78 74 20 69 73 20 69 |eleton t|ext is i|
|00001f30| 6e 73 65 72 74 65 64 20 | 61 74 20 70 6f 69 6e 74 |nserted |at point|
|00001f40| 2c 20 77 69 74 68 20 6e | 6f 74 68 69 6e 67 20 22 |, with n|othing "|
|00001f50| 69 6e 73 69 64 65 22 2e | 0a 49 66 20 74 68 65 72 |inside".|.If ther|
|00001f60| 65 20 69 73 20 61 20 68 | 69 67 68 6c 69 67 68 74 |e is a h|ighlight|
|00001f70| 65 64 20 72 65 67 69 6f | 6e 2c 20 74 68 65 20 73 |ed regio|n, the s|
|00001f80| 6b 65 6c 65 74 6f 6e 20 | 74 65 78 74 20 69 73 20 |keleton |text is |
|00001f90| 77 72 61 70 70 65 64 0a | 61 72 6f 75 6e 64 20 74 |wrapped.|around t|
|00001fa0| 68 65 20 72 65 67 69 6f | 6e 20 74 65 78 74 2e 0a |he regio|n text..|
|00001fb0| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00001fc0| 6e 74 20 41 52 47 20 73 | 61 79 73 20 74 6f 20 77 |nt ARG s|ays to w|
|00001fd0| 72 61 70 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |rap the |skeleton|
|00001fe0| 20 61 72 6f 75 6e 64 20 | 74 68 65 20 6e 65 78 74 | around |the next|
|00001ff0| 20 41 52 47 20 77 6f 72 | 64 73 2e 0a 41 20 70 72 | ARG wor|ds..A pr|
|00002000| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 6f 66 |efix arg|ument of|
|00002010| 20 7a 65 72 6f 20 73 61 | 79 73 20 74 6f 20 77 72 | zero sa|ys to wr|
|00002020| 61 70 20 61 72 6f 75 6e | 64 20 7a 65 72 6f 20 77 |ap aroun|d zero w|
|00002030| 6f 72 64 73 2d 2d 2d 74 | 68 61 74 20 69 73 2c 20 |ords---t|hat is, |
|00002040| 6e 6f 74 68 69 6e 67 2e | 0a 54 68 69 73 20 69 73 |nothing.|.This is|
|00002050| 20 61 20 77 61 79 20 6f | 66 20 6f 76 65 72 69 64 | a way o|f overid|
|00002060| 69 6e 67 20 74 68 65 20 | 75 73 65 20 6f 66 20 61 |ing the |use of a|
|00002070| 20 68 69 67 68 6c 69 67 | 68 74 65 64 20 72 65 67 | highlig|hted reg|
|00002080| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00002090| 27 61 64 61 2d 68 65 61 | 64 65 72 2d 74 6d 70 6c |'ada-hea|der-tmpl|
|000020a0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 73 74 | #[(&opt|ional st|
|000020b0| 72 20 61 72 67 29 20 22 | c0 c1 5c 6e 0b 23 87 22 |r arg) "|..\n.#."|
|000020c0| 20 5b 73 6b 65 6c 65 74 | 6f 6e 2d 70 72 6f 78 79 | [skelet|on-proxy|
|000020d0| 2d 6e 65 77 20 28 22 5b | 44 65 73 63 72 69 70 74 |-new ("[|Descript|
|000020e0| 69 6f 6e 5d 3a 20 22 20 | 22 2d 2d 20 20 20 20 20 |ion]: " |"--     |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002100| 20 20 20 20 20 20 20 20 | 20 2d 2a 2d 20 4d 6f 64 |        | -*- Mod|
|00002110| 65 3a 20 41 64 61 20 2d | 2a 2d 22 20 22 5c 6e 2d |e: Ada -|*-" "\n-|
|00002120| 2d 20 46 69 6c 65 6e 61 | 6d 65 20 20 20 20 20 20 |- Filena|me      |
|00002130| 20 20 3a 20 22 20 28 62 | 75 66 66 65 72 2d 6e 61 |  : " (b|uffer-na|
|00002140| 6d 65 29 20 22 5c 6e 2d | 2d 20 44 65 73 63 72 69 |me) "\n-|- Descri|
|00002150| 70 74 69 6f 6e 20 20 20 | 20 20 3a 20 22 20 73 74 |ption   |  : " st|
|00002160| 72 20 22 5c 6e 2d 2d 20 | 41 75 74 68 6f 72 20 20 |r "\n-- |Author  |
|00002170| 20 20 20 20 20 20 20 20 | 3a 20 22 20 28 75 73 65 |        |: " (use|
|00002180| 72 2d 66 75 6c 6c 2d 6e | 61 6d 65 29 20 22 5c 6e |r-full-n|ame) "\n|
|00002190| 2d 2d 20 43 72 65 61 74 | 65 64 20 4f 6e 20 20 20 |-- Creat|ed On   |
|000021a0| 20 20 20 3a 20 22 20 28 | 63 75 72 72 65 6e 74 2d |   : " (|current-|
|000021b0| 74 69 6d 65 2d 73 74 72 | 69 6e 67 29 20 22 5c 6e |time-str|ing) "\n|
|000021c0| 2d 2d 20 4c 61 73 74 20 | 4d 6f 64 69 66 69 65 64 |-- Last |Modified|
|000021d0| 20 42 79 3a 20 2e 22 20 | 22 5c 6e 2d 2d 20 4c 61 | By: ." |"\n-- La|
|000021e0| 73 74 20 4d 6f 64 69 66 | 69 65 64 20 4f 6e 3a 20 |st Modif|ied On: |
|000021f0| 2e 22 20 22 5c 6e 2d 2d | 20 55 70 64 61 74 65 20 |." "\n--| Update |
|00002200| 43 6f 75 6e 74 20 20 20 | 20 3a 20 30 22 20 22 5c |Count   | : 0" "\|
|00002210| 6e 2d 2d 20 53 74 61 74 | 75 73 20 20 20 20 20 20 |n-- Stat|us      |
|00002220| 20 20 20 20 3a 20 55 6e | 6b 6e 6f 77 6e 2c 20 55 |    : Un|known, U|
|00002230| 73 65 20 77 69 74 68 20 | 63 61 75 74 69 6f 6e 21 |se with |caution!|
|00002240| 22 20 22 5c 6e 22 29 20 | 73 74 72 20 61 72 67 5d |" "\n") |str arg]|
|00002250| 20 34 20 28 23 24 20 2e | 20 37 38 33 35 29 20 22 | 4 (#$ .| 7835) "|
|00002260| 2a 50 5c 6e 50 22 5d 29 | 0a 23 40 34 38 31 20 49 |*P\nP"])|.#@481 I|
|00002270| 6e 73 65 72 74 73 20 74 | 68 72 65 65 20 63 6f 6d |nserts t|hree com|
|00002280| 6d 65 6e 74 20 6c 69 6e | 65 73 2c 20 6d 61 6b 69 |ment lin|es, maki|
|00002290| 6e 67 20 61 20 64 69 73 | 70 6c 61 79 20 63 6f 6d |ng a dis|play com|
|000022a0| 6d 65 6e 74 2e 0a 0a 54 | 68 69 73 20 69 73 20 61 |ment...T|his is a|
|000022b0| 20 73 6b 65 6c 65 74 6f | 6e 20 63 6f 6d 6d 61 6e | skeleto|n comman|
|000022c0| 64 20 28 73 65 65 20 60 | 73 6b 65 6c 65 74 6f 6e |d (see `|skeleton|
|000022d0| 2d 69 6e 73 65 72 74 27 | 29 2e 0a 4e 6f 72 6d 61 |-insert'|)..Norma|
|000022e0| 6c 6c 79 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |lly the |skeleton|
|000022f0| 20 74 65 78 74 20 69 73 | 20 69 6e 73 65 72 74 65 | text is| inserte|
|00002300| 64 20 61 74 20 70 6f 69 | 6e 74 2c 20 77 69 74 68 |d at poi|nt, with|
|00002310| 20 6e 6f 74 68 69 6e 67 | 20 22 69 6e 73 69 64 65 | nothing| "inside|
|00002320| 22 2e 0a 49 66 20 74 68 | 65 72 65 20 69 73 20 61 |"..If th|ere is a|
|00002330| 20 68 69 67 68 6c 69 67 | 68 74 65 64 20 72 65 67 | highlig|hted reg|
|00002340| 69 6f 6e 2c 20 74 68 65 | 20 73 6b 65 6c 65 74 6f |ion, the| skeleto|
|00002350| 6e 20 74 65 78 74 20 69 | 73 20 77 72 61 70 70 65 |n text i|s wrappe|
|00002360| 64 0a 61 72 6f 75 6e 64 | 20 74 68 65 20 72 65 67 |d.around| the reg|
|00002370| 69 6f 6e 20 74 65 78 74 | 2e 0a 0a 41 20 70 72 65 |ion text|...A pre|
|00002380| 66 69 78 20 61 72 67 75 | 6d 65 6e 74 20 41 52 47 |fix argu|ment ARG|
|00002390| 20 73 61 79 73 20 74 6f | 20 77 72 61 70 20 74 68 | says to| wrap th|
|000023a0| 65 20 73 6b 65 6c 65 74 | 6f 6e 20 61 72 6f 75 6e |e skelet|on aroun|
|000023b0| 64 20 74 68 65 20 6e 65 | 78 74 20 41 52 47 20 77 |d the ne|xt ARG w|
|000023c0| 6f 72 64 73 2e 0a 41 20 | 70 72 65 66 69 78 20 61 |ords..A |prefix a|
|000023d0| 72 67 75 6d 65 6e 74 20 | 6f 66 20 7a 65 72 6f 20 |rgument |of zero |
|000023e0| 73 61 79 73 20 74 6f 20 | 77 72 61 70 20 61 72 6f |says to |wrap aro|
|000023f0| 75 6e 64 20 7a 65 72 6f | 20 77 6f 72 64 73 2d 2d |und zero| words--|
|00002400| 2d 74 68 61 74 20 69 73 | 2c 20 6e 6f 74 68 69 6e |-that is|, nothin|
|00002410| 67 2e 0a 54 68 69 73 20 | 69 73 20 61 20 77 61 79 |g..This |is a way|
|00002420| 20 6f 66 20 6f 76 65 72 | 69 64 69 6e 67 20 74 68 | of over|iding th|
|00002430| 65 20 75 73 65 20 6f 66 | 20 61 20 68 69 67 68 6c |e use of| a highl|
|00002440| 69 67 68 74 65 64 20 72 | 65 67 69 6f 6e 2e 1f 0a |ighted r|egion...|
|00002450| 28 64 65 66 61 6c 69 61 | 73 20 27 61 64 61 2d 64 |(defalia|s 'ada-d|
|00002460| 69 73 70 6c 61 79 2d 63 | 6f 6d 6d 65 6e 74 20 23 |isplay-c|omment #|
|00002470| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 74 72 20 |[(&optio|nal str |
|00002480| 61 72 67 29 20 22 c0 c1 | 5c 6e 0b 23 87 22 20 5b |arg) "..|\n.#." [|
|00002490| 73 6b 65 6c 65 74 6f 6e | 2d 70 72 6f 78 79 2d 6e |skeleton|-proxy-n|
|000024a0| 65 77 20 28 6e 69 6c 20 | 22 2d 2d 5c 6e 2d 2d 20 |ew (nil |"--\n-- |
|000024b0| 22 20 5f 20 22 5c 6e 2d | 2d 22 29 20 73 74 72 20 |" _ "\n-|-") str |
|000024c0| 61 72 67 5d 20 34 20 28 | 23 24 20 2e 20 38 38 31 |arg] 4 (|#$ . 881|
|000024d0| 35 29 20 22 2a 50 5c 6e | 50 22 5d 29 0a 23 40 34 |5) "*P\n|P"]).#@4|
|000024e0| 39 31 20 49 6e 73 65 72 | 74 20 73 6b 65 6c 65 74 |91 Inser|t skelet|
|000024f0| 6f 6e 20 69 66 20 73 74 | 61 74 6d 65 6e 74 2c 20 |on if st|atment, |
|00002500| 70 72 6f 6d 70 74 69 6e | 67 20 66 6f 72 20 61 20 |promptin|g for a |
|00002510| 62 6f 6f 6c 65 61 6e 2d | 65 78 70 72 65 73 73 69 |boolean-|expressi|
|00002520| 6f 6e 2e 0a 0a 54 68 69 | 73 20 69 73 20 61 20 73 |on...Thi|s is a s|
|00002530| 6b 65 6c 65 74 6f 6e 20 | 63 6f 6d 6d 61 6e 64 20 |keleton |command |
|00002540| 28 73 65 65 20 60 73 6b | 65 6c 65 74 6f 6e 2d 69 |(see `sk|eleton-i|
|00002550| 6e 73 65 72 74 27 29 2e | 0a 4e 6f 72 6d 61 6c 6c |nsert').|.Normall|
|00002560| 79 20 74 68 65 20 73 6b | 65 6c 65 74 6f 6e 20 74 |y the sk|eleton t|
|00002570| 65 78 74 20 69 73 20 69 | 6e 73 65 72 74 65 64 20 |ext is i|nserted |
|00002580| 61 74 20 70 6f 69 6e 74 | 2c 20 77 69 74 68 20 6e |at point|, with n|
|00002590| 6f 74 68 69 6e 67 20 22 | 69 6e 73 69 64 65 22 2e |othing "|inside".|
|000025a0| 0a 49 66 20 74 68 65 72 | 65 20 69 73 20 61 20 68 |.If ther|e is a h|
|000025b0| 69 67 68 6c 69 67 68 74 | 65 64 20 72 65 67 69 6f |ighlight|ed regio|
|000025c0| 6e 2c 20 74 68 65 20 73 | 6b 65 6c 65 74 6f 6e 20 |n, the s|keleton |
|000025d0| 74 65 78 74 20 69 73 20 | 77 72 61 70 70 65 64 0a |text is |wrapped.|
|000025e0| 61 72 6f 75 6e 64 20 74 | 68 65 20 72 65 67 69 6f |around t|he regio|
|000025f0| 6e 20 74 65 78 74 2e 0a | 0a 41 20 70 72 65 66 69 |n text..|.A prefi|
|00002600| 78 20 61 72 67 75 6d 65 | 6e 74 20 41 52 47 20 73 |x argume|nt ARG s|
|00002610| 61 79 73 20 74 6f 20 77 | 72 61 70 20 74 68 65 20 |ays to w|rap the |
|00002620| 73 6b 65 6c 65 74 6f 6e | 20 61 72 6f 75 6e 64 20 |skeleton| around |
|00002630| 74 68 65 20 6e 65 78 74 | 20 41 52 47 20 77 6f 72 |the next| ARG wor|
|00002640| 64 73 2e 0a 41 20 70 72 | 65 66 69 78 20 61 72 67 |ds..A pr|efix arg|
|00002650| 75 6d 65 6e 74 20 6f 66 | 20 7a 65 72 6f 20 73 61 |ument of| zero sa|
|00002660| 79 73 20 74 6f 20 77 72 | 61 70 20 61 72 6f 75 6e |ys to wr|ap aroun|
|00002670| 64 20 7a 65 72 6f 20 77 | 6f 72 64 73 2d 2d 2d 74 |d zero w|ords---t|
|00002680| 68 61 74 20 69 73 2c 20 | 6e 6f 74 68 69 6e 67 2e |hat is, |nothing.|
|00002690| 0a 54 68 69 73 20 69 73 | 20 61 20 77 61 79 20 6f |.This is| a way o|
|000026a0| 66 20 6f 76 65 72 69 64 | 69 6e 67 20 74 68 65 20 |f overid|ing the |
|000026b0| 75 73 65 20 6f 66 20 61 | 20 68 69 67 68 6c 69 67 |use of a| highlig|
|000026c0| 68 74 65 64 20 72 65 67 | 69 6f 6e 2e 1f 0a 28 64 |hted reg|ion...(d|
|000026d0| 65 66 61 6c 69 61 73 20 | 27 61 64 61 2d 69 66 20 |efalias |'ada-if |
|000026e0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 73 74 72 |#[(&opti|onal str|
|000026f0| 20 61 72 67 29 20 22 c0 | c1 5c 6e 0b 23 87 22 20 | arg) ".|.\n.#." |
|00002700| 5b 73 6b 65 6c 65 74 6f | 6e 2d 70 72 6f 78 79 2d |[skeleto|n-proxy-|
|00002710| 6e 65 77 20 28 22 5b 63 | 6f 6e 64 69 74 69 6f 6e |new ("[c|ondition|
|00002720| 5d 3a 20 22 20 22 69 66 | 20 22 20 73 74 72 20 22 |]: " "if| " str "|
|00002730| 20 74 68 65 6e 22 20 6e | 20 3e 20 5f 20 6e 20 3c | then" n| > _ n <|
|00002740| 20 22 65 6e 64 20 69 66 | 3b 22 29 20 73 74 72 20 | "end if|;") str |
|00002750| 61 72 67 5d 20 34 20 28 | 23 24 20 2e 20 39 34 34 |arg] 4 (|#$ . 944|
|00002760| 33 29 20 22 2a 50 5c 6e | 50 22 5d 29 0a 23 40 35 |3) "*P\n|P"]).#@5|
|00002770| 30 35 20 41 64 64 20 61 | 6e 20 65 6c 73 69 66 20 |05 Add a|n elsif |
|00002780| 63 6c 61 75 73 65 20 74 | 6f 20 61 6e 20 69 66 20 |clause t|o an if |
|00002790| 73 74 61 74 65 6d 65 6e | 74 2c 20 0a 70 72 6f 6d |statemen|t, .prom|
|000027a0| 70 74 69 6e 67 20 66 6f | 72 20 74 68 65 20 62 6f |pting fo|r the bo|
|000027b0| 6f 6c 65 61 6e 2d 65 78 | 70 72 65 73 73 69 6f 6e |olean-ex|pression|
|000027c0| 2e 0a 0a 54 68 69 73 20 | 69 73 20 61 20 73 6b 65 |...This |is a ske|
|000027d0| 6c 65 74 6f 6e 20 63 6f | 6d 6d 61 6e 64 20 28 73 |leton co|mmand (s|
|000027e0| 65 65 20 60 73 6b 65 6c | 65 74 6f 6e 2d 69 6e 73 |ee `skel|eton-ins|
|000027f0| 65 72 74 27 29 2e 0a 4e | 6f 72 6d 61 6c 6c 79 20 |ert')..N|ormally |
|00002800| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 74 65 78 |the skel|eton tex|
|00002810| 74 20 69 73 20 69 6e 73 | 65 72 74 65 64 20 61 74 |t is ins|erted at|
|00002820| 20 70 6f 69 6e 74 2c 20 | 77 69 74 68 20 6e 6f 74 | point, |with not|
|00002830| 68 69 6e 67 20 22 69 6e | 73 69 64 65 22 2e 0a 49 |hing "in|side"..I|
|00002840| 66 20 74 68 65 72 65 20 | 69 73 20 61 20 68 69 67 |f there |is a hig|
|00002850| 68 6c 69 67 68 74 65 64 | 20 72 65 67 69 6f 6e 2c |hlighted| region,|
|00002860| 20 74 68 65 20 73 6b 65 | 6c 65 74 6f 6e 20 74 65 | the ske|leton te|
|00002870| 78 74 20 69 73 20 77 72 | 61 70 70 65 64 0a 61 72 |xt is wr|apped.ar|
|00002880| 6f 75 6e 64 20 74 68 65 | 20 72 65 67 69 6f 6e 20 |ound the| region |
|00002890| 74 65 78 74 2e 0a 0a 41 | 20 70 72 65 66 69 78 20 |text...A| prefix |
|000028a0| 61 72 67 75 6d 65 6e 74 | 20 41 52 47 20 73 61 79 |argument| ARG say|
|000028b0| 73 20 74 6f 20 77 72 61 | 70 20 74 68 65 20 73 6b |s to wra|p the sk|
|000028c0| 65 6c 65 74 6f 6e 20 61 | 72 6f 75 6e 64 20 74 68 |eleton a|round th|
|000028d0| 65 20 6e 65 78 74 20 41 | 52 47 20 77 6f 72 64 73 |e next A|RG words|
|000028e0| 2e 0a 41 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |..A pref|ix argum|
|000028f0| 65 6e 74 20 6f 66 20 7a | 65 72 6f 20 73 61 79 73 |ent of z|ero says|
|00002900| 20 74 6f 20 77 72 61 70 | 20 61 72 6f 75 6e 64 20 | to wrap| around |
|00002910| 7a 65 72 6f 20 77 6f 72 | 64 73 2d 2d 2d 74 68 61 |zero wor|ds---tha|
|00002920| 74 20 69 73 2c 20 6e 6f | 74 68 69 6e 67 2e 0a 54 |t is, no|thing..T|
|00002930| 68 69 73 20 69 73 20 61 | 20 77 61 79 20 6f 66 20 |his is a| way of |
|00002940| 6f 76 65 72 69 64 69 6e | 67 20 74 68 65 20 75 73 |overidin|g the us|
|00002950| 65 20 6f 66 20 61 20 68 | 69 67 68 6c 69 67 68 74 |e of a h|ighlight|
|00002960| 65 64 20 72 65 67 69 6f | 6e 2e 1f 0a 28 64 65 66 |ed regio|n...(def|
|00002970| 61 6c 69 61 73 20 27 61 | 64 61 2d 65 6c 73 69 66 |alias 'a|da-elsif|
|00002980| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 73 74 | #[(&opt|ional st|
|00002990| 72 20 61 72 67 29 20 22 | c0 c1 5c 6e 0b 23 87 22 |r arg) "|..\n.#."|
|000029a0| 20 5b 73 6b 65 6c 65 74 | 6f 6e 2d 70 72 6f 78 79 | [skelet|on-proxy|
|000029b0| 2d 6e 65 77 20 28 22 5b | 63 6f 6e 64 69 74 69 6f |-new ("[|conditio|
|000029c0| 6e 5d 3a 20 22 20 3c 20 | 22 65 6c 73 69 66 20 22 |n]: " < |"elsif "|
|000029d0| 20 73 74 72 20 22 20 74 | 68 65 6e 22 20 6e 20 3e | str " t|hen" n >|
|000029e0| 29 20 73 74 72 20 61 72 | 67 5d 20 34 20 28 23 24 |) str ar|g] 4 (#$|
|000029f0| 20 2e 20 31 30 30 39 39 | 29 20 22 2a 50 5c 6e 50 | . 10099|) "*P\nP|
|00002a00| 22 5d 29 0a 23 40 34 37 | 38 20 41 64 64 20 61 6e |"]).#@47|8 Add an|
|00002a10| 20 65 6c 73 65 20 63 6c | 61 75 73 65 20 69 6e 73 | else cl|ause ins|
|00002a20| 69 64 65 20 61 6e 20 69 | 66 2d 74 68 65 6e 2d 65 |ide an i|f-then-e|
|00002a30| 6e 64 2d 69 66 20 63 6c | 61 75 73 65 2e 0a 0a 54 |nd-if cl|ause...T|
|00002a40| 68 69 73 20 69 73 20 61 | 20 73 6b 65 6c 65 74 6f |his is a| skeleto|
|00002a50| 6e 20 63 6f 6d 6d 61 6e | 64 20 28 73 65 65 20 60 |n comman|d (see `|
|00002a60| 73 6b 65 6c 65 74 6f 6e | 2d 69 6e 73 65 72 74 27 |skeleton|-insert'|
|00002a70| 29 2e 0a 4e 6f 72 6d 61 | 6c 6c 79 20 74 68 65 20 |)..Norma|lly the |
|00002a80| 73 6b 65 6c 65 74 6f 6e | 20 74 65 78 74 20 69 73 |skeleton| text is|
|00002a90| 20 69 6e 73 65 72 74 65 | 64 20 61 74 20 70 6f 69 | inserte|d at poi|
|00002aa0| 6e 74 2c 20 77 69 74 68 | 20 6e 6f 74 68 69 6e 67 |nt, with| nothing|
|00002ab0| 20 22 69 6e 73 69 64 65 | 22 2e 0a 49 66 20 74 68 | "inside|"..If th|
|00002ac0| 65 72 65 20 69 73 20 61 | 20 68 69 67 68 6c 69 67 |ere is a| highlig|
|00002ad0| 68 74 65 64 20 72 65 67 | 69 6f 6e 2c 20 74 68 65 |hted reg|ion, the|
|00002ae0| 20 73 6b 65 6c 65 74 6f | 6e 20 74 65 78 74 20 69 | skeleto|n text i|
|00002af0| 73 20 77 72 61 70 70 65 | 64 0a 61 72 6f 75 6e 64 |s wrappe|d.around|
|00002b00| 20 74 68 65 20 72 65 67 | 69 6f 6e 20 74 65 78 74 | the reg|ion text|
|00002b10| 2e 0a 0a 41 20 70 72 65 | 66 69 78 20 61 72 67 75 |...A pre|fix argu|
|00002b20| 6d 65 6e 74 20 41 52 47 | 20 73 61 79 73 20 74 6f |ment ARG| says to|
|00002b30| 20 77 72 61 70 20 74 68 | 65 20 73 6b 65 6c 65 74 | wrap th|e skelet|
|00002b40| 6f 6e 20 61 72 6f 75 6e | 64 20 74 68 65 20 6e 65 |on aroun|d the ne|
|00002b50| 78 74 20 41 52 47 20 77 | 6f 72 64 73 2e 0a 41 20 |xt ARG w|ords..A |
|00002b60| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 20 |prefix a|rgument |
|00002b70| 6f 66 20 7a 65 72 6f 20 | 73 61 79 73 20 74 6f 20 |of zero |says to |
|00002b80| 77 72 61 70 20 61 72 6f | 75 6e 64 20 7a 65 72 6f |wrap aro|und zero|
|00002b90| 20 77 6f 72 64 73 2d 2d | 2d 74 68 61 74 20 69 73 | words--|-that is|
|00002ba0| 2c 20 6e 6f 74 68 69 6e | 67 2e 0a 54 68 69 73 20 |, nothin|g..This |
|00002bb0| 69 73 20 61 20 77 61 79 | 20 6f 66 20 6f 76 65 72 |is a way| of over|
|00002bc0| 69 64 69 6e 67 20 74 68 | 65 20 75 73 65 20 6f 66 |iding th|e use of|
|00002bd0| 20 61 20 68 69 67 68 6c | 69 67 68 74 65 64 20 72 | a highl|ighted r|
|00002be0| 65 67 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |egion...|(defalia|
|00002bf0| 73 20 27 61 64 61 2d 65 | 6c 73 65 20 23 5b 28 26 |s 'ada-e|lse #[(&|
|00002c00| 6f 70 74 69 6f 6e 61 6c | 20 73 74 72 20 61 72 67 |optional| str arg|
|00002c10| 29 20 22 c0 c1 5c 6e 0b | 23 87 22 20 5b 73 6b 65 |) "..\n.|#." [ske|
|00002c20| 6c 65 74 6f 6e 2d 70 72 | 6f 78 79 2d 6e 65 77 20 |leton-pr|oxy-new |
|00002c30| 28 6e 69 6c 20 3c 20 22 | 65 6c 73 65 22 20 6e 20 |(nil < "|else" n |
|00002c40| 3e 29 20 73 74 72 20 61 | 72 67 5d 20 34 20 28 23 |>) str a|rg] 4 (#|
|00002c50| 24 20 2e 20 31 30 37 36 | 32 29 20 22 2a 50 5c 6e |$ . 1076|2) "*P\n|
|00002c60| 50 22 5d 29 0a 23 40 34 | 39 38 20 49 6e 73 65 72 |P"]).#@4|98 Inser|
|00002c70| 74 20 61 20 73 6b 65 6c | 65 74 6f 6e 20 6c 6f 6f |t a skel|eton loo|
|00002c80| 70 20 73 74 61 74 65 6d | 65 6e 74 2e 20 20 54 68 |p statem|ent.  Th|
|00002c90| 65 20 65 78 69 74 20 73 | 74 61 74 65 6d 65 6e 74 |e exit s|tatement|
|00002ca0| 20 69 73 20 61 64 64 65 | 64 20 62 79 20 68 61 6e | is adde|d by han|
|00002cb0| 64 2e 0a 0a 54 68 69 73 | 20 69 73 20 61 20 73 6b |d...This| is a sk|
|00002cc0| 65 6c 65 74 6f 6e 20 63 | 6f 6d 6d 61 6e 64 20 28 |eleton c|ommand (|
|00002cd0| 73 65 65 20 60 73 6b 65 | 6c 65 74 6f 6e 2d 69 6e |see `ske|leton-in|
|00002ce0| 73 65 72 74 27 29 2e 0a | 4e 6f 72 6d 61 6c 6c 79 |sert')..|Normally|
|00002cf0| 20 74 68 65 20 73 6b 65 | 6c 65 74 6f 6e 20 74 65 | the ske|leton te|
|00002d00| 78 74 20 69 73 20 69 6e | 73 65 72 74 65 64 20 61 |xt is in|serted a|
|00002d10| 74 20 70 6f 69 6e 74 2c | 20 77 69 74 68 20 6e 6f |t point,| with no|
|00002d20| 74 68 69 6e 67 20 22 69 | 6e 73 69 64 65 22 2e 0a |thing "i|nside"..|
|00002d30| 49 66 20 74 68 65 72 65 | 20 69 73 20 61 20 68 69 |If there| is a hi|
|00002d40| 67 68 6c 69 67 68 74 65 | 64 20 72 65 67 69 6f 6e |ghlighte|d region|
|00002d50| 2c 20 74 68 65 20 73 6b | 65 6c 65 74 6f 6e 20 74 |, the sk|eleton t|
|00002d60| 65 78 74 20 69 73 20 77 | 72 61 70 70 65 64 0a 61 |ext is w|rapped.a|
|00002d70| 72 6f 75 6e 64 20 74 68 | 65 20 72 65 67 69 6f 6e |round th|e region|
|00002d80| 20 74 65 78 74 2e 0a 0a | 41 20 70 72 65 66 69 78 | text...|A prefix|
|00002d90| 20 61 72 67 75 6d 65 6e | 74 20 41 52 47 20 73 61 | argumen|t ARG sa|
|00002da0| 79 73 20 74 6f 20 77 72 | 61 70 20 74 68 65 20 73 |ys to wr|ap the s|
|00002db0| 6b 65 6c 65 74 6f 6e 20 | 61 72 6f 75 6e 64 20 74 |keleton |around t|
|00002dc0| 68 65 20 6e 65 78 74 20 | 41 52 47 20 77 6f 72 64 |he next |ARG word|
|00002dd0| 73 2e 0a 41 20 70 72 65 | 66 69 78 20 61 72 67 75 |s..A pre|fix argu|
|00002de0| 6d 65 6e 74 20 6f 66 20 | 7a 65 72 6f 20 73 61 79 |ment of |zero say|
|00002df0| 73 20 74 6f 20 77 72 61 | 70 20 61 72 6f 75 6e 64 |s to wra|p around|
|00002e00| 20 7a 65 72 6f 20 77 6f | 72 64 73 2d 2d 2d 74 68 | zero wo|rds---th|
|00002e10| 61 74 20 69 73 2c 20 6e | 6f 74 68 69 6e 67 2e 0a |at is, n|othing..|
|00002e20| 54 68 69 73 20 69 73 20 | 61 20 77 61 79 20 6f 66 |This is |a way of|
|00002e30| 20 6f 76 65 72 69 64 69 | 6e 67 20 74 68 65 20 75 | overidi|ng the u|
|00002e40| 73 65 20 6f 66 20 61 20 | 68 69 67 68 6c 69 67 68 |se of a |highligh|
|00002e50| 74 65 64 20 72 65 67 69 | 6f 6e 2e 1f 0a 28 64 65 |ted regi|on...(de|
|00002e60| 66 61 6c 69 61 73 20 27 | 61 64 61 2d 6c 6f 6f 70 |falias '|ada-loop|
|00002e70| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 73 74 | #[(&opt|ional st|
|00002e80| 72 20 61 72 67 29 20 22 | c0 c1 5c 6e 0b 23 87 22 |r arg) "|..\n.#."|
|00002e90| 20 5b 73 6b 65 6c 65 74 | 6f 6e 2d 70 72 6f 78 79 | [skelet|on-proxy|
|00002ea0| 2d 6e 65 77 20 28 22 5b | 6c 6f 6f 70 20 6e 61 6d |-new ("[|loop nam|
|00002eb0| 65 5d 3a 20 22 20 3c 20 | 73 74 72 20 26 20 3f 5c |e]: " < |str & ?\|
|00002ec0| 3a 20 26 20 6e 20 3e 20 | 22 6c 6f 6f 70 22 20 6e |: & n > |"loop" n|
|00002ed0| 20 3e 20 5f 20 6e 20 3c | 20 22 65 6e 64 20 6c 6f | > _ n <| "end lo|
|00002ee0| 6f 70 20 22 20 73 74 72 | 20 7c 20 2d 31 20 3f 5c |op " str| | -1 ?\|
|00002ef0| 3b 29 20 73 74 72 20 61 | 72 67 5d 20 34 20 28 23 |;) str a|rg] 4 (#|
|00002f00| 24 20 2e 20 31 31 33 37 | 31 29 20 22 2a 50 5c 6e |$ . 1137|1) "*P\n|
|00002f10| 50 22 5d 29 0a 23 40 34 | 35 36 20 50 72 6f 6d 70 |P"]).#@4|56 Promp|
|00002f20| 74 20 66 6f 72 20 74 68 | 65 20 6c 6f 6f 70 20 76 |t for th|e loop v|
|00002f30| 61 72 69 61 62 6c 65 2e | 0a 0a 54 68 69 73 20 69 |ariable.|..This i|
|00002f40| 73 20 61 20 73 6b 65 6c | 65 74 6f 6e 20 63 6f 6d |s a skel|eton com|
|00002f50| 6d 61 6e 64 20 28 73 65 | 65 20 60 73 6b 65 6c 65 |mand (se|e `skele|
|00002f60| 74 6f 6e 2d 69 6e 73 65 | 72 74 27 29 2e 0a 4e 6f |ton-inse|rt')..No|
|00002f70| 72 6d 61 6c 6c 79 20 74 | 68 65 20 73 6b 65 6c 65 |rmally t|he skele|
|00002f80| 74 6f 6e 20 74 65 78 74 | 20 69 73 20 69 6e 73 65 |ton text| is inse|
|00002f90| 72 74 65 64 20 61 74 20 | 70 6f 69 6e 74 2c 20 77 |rted at |point, w|
|00002fa0| 69 74 68 20 6e 6f 74 68 | 69 6e 67 20 22 69 6e 73 |ith noth|ing "ins|
|00002fb0| 69 64 65 22 2e 0a 49 66 | 20 74 68 65 72 65 20 69 |ide"..If| there i|
|00002fc0| 73 20 61 20 68 69 67 68 | 6c 69 67 68 74 65 64 20 |s a high|lighted |
|00002fd0| 72 65 67 69 6f 6e 2c 20 | 74 68 65 20 73 6b 65 6c |region, |the skel|
|00002fe0| 65 74 6f 6e 20 74 65 78 | 74 20 69 73 20 77 72 61 |eton tex|t is wra|
|00002ff0| 70 70 65 64 0a 61 72 6f | 75 6e 64 20 74 68 65 20 |pped.aro|und the |
|00003000| 72 65 67 69 6f 6e 20 74 | 65 78 74 2e 0a 0a 41 20 |region t|ext...A |
|00003010| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 20 |prefix a|rgument |
|00003020| 41 52 47 20 73 61 79 73 | 20 74 6f 20 77 72 61 70 |ARG says| to wrap|
|00003030| 20 74 68 65 20 73 6b 65 | 6c 65 74 6f 6e 20 61 72 | the ske|leton ar|
|00003040| 6f 75 6e 64 20 74 68 65 | 20 6e 65 78 74 20 41 52 |ound the| next AR|
|00003050| 47 20 77 6f 72 64 73 2e | 0a 41 20 70 72 65 66 69 |G words.|.A prefi|
|00003060| 78 20 61 72 67 75 6d 65 | 6e 74 20 6f 66 20 7a 65 |x argume|nt of ze|
|00003070| 72 6f 20 73 61 79 73 20 | 74 6f 20 77 72 61 70 20 |ro says |to wrap |
|00003080| 61 72 6f 75 6e 64 20 7a | 65 72 6f 20 77 6f 72 64 |around z|ero word|
|00003090| 73 2d 2d 2d 74 68 61 74 | 20 69 73 2c 20 6e 6f 74 |s---that| is, not|
|000030a0| 68 69 6e 67 2e 0a 54 68 | 69 73 20 69 73 20 61 20 |hing..Th|is is a |
|000030b0| 77 61 79 20 6f 66 20 6f | 76 65 72 69 64 69 6e 67 |way of o|veriding|
|000030c0| 20 74 68 65 20 75 73 65 | 20 6f 66 20 61 20 68 69 | the use| of a hi|
|000030d0| 67 68 6c 69 67 68 74 65 | 64 20 72 65 67 69 6f 6e |ghlighte|d region|
|000030e0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 64 |...(defa|lias 'ad|
|000030f0| 61 2d 66 6f 72 2d 6c 6f | 6f 70 2d 70 72 6f 6d 70 |a-for-lo|op-promp|
|00003100| 74 2d 76 61 72 69 61 62 | 6c 65 20 23 5b 28 26 6f |t-variab|le #[(&o|
|00003110| 70 74 69 6f 6e 61 6c 20 | 73 74 72 20 61 72 67 29 |ptional |str arg)|
|00003120| 20 22 c0 c1 5c 6e 0b 23 | 87 22 20 5b 73 6b 65 6c | "..\n.#|." [skel|
|00003130| 65 74 6f 6e 2d 70 72 6f | 78 79 2d 6e 65 77 20 28 |eton-pro|xy-new (|
|00003140| 22 5b 6c 6f 6f 70 20 76 | 61 72 69 61 62 6c 65 5d |"[loop v|ariable]|
|00003150| 3a 20 22 20 73 74 72 29 | 20 73 74 72 20 61 72 67 |: " str)| str arg|
|00003160| 5d 20 34 20 28 23 24 20 | 2e 20 31 32 30 35 39 29 |] 4 (#$ |. 12059)|
|00003170| 20 22 2a 50 5c 6e 50 22 | 5d 29 0a 23 40 34 35 33 | "*P\nP"|]).#@453|
|00003180| 20 50 72 6f 6d 70 74 20 | 66 6f 72 20 74 68 65 20 | Prompt |for the |
|00003190| 6c 6f 6f 70 20 72 61 6e | 67 65 2e 0a 0a 54 68 69 |loop ran|ge...Thi|
|000031a0| 73 20 69 73 20 61 20 73 | 6b 65 6c 65 74 6f 6e 20 |s is a s|keleton |
|000031b0| 63 6f 6d 6d 61 6e 64 20 | 28 73 65 65 20 60 73 6b |command |(see `sk|
|000031c0| 65 6c 65 74 6f 6e 2d 69 | 6e 73 65 72 74 27 29 2e |eleton-i|nsert').|
|000031d0| 0a 4e 6f 72 6d 61 6c 6c | 79 20 74 68 65 20 73 6b |.Normall|y the sk|
|000031e0| 65 6c 65 74 6f 6e 20 74 | 65 78 74 20 69 73 20 69 |eleton t|ext is i|
|000031f0| 6e 73 65 72 74 65 64 20 | 61 74 20 70 6f 69 6e 74 |nserted |at point|
|00003200| 2c 20 77 69 74 68 20 6e | 6f 74 68 69 6e 67 20 22 |, with n|othing "|
|00003210| 69 6e 73 69 64 65 22 2e | 0a 49 66 20 74 68 65 72 |inside".|.If ther|
|00003220| 65 20 69 73 20 61 20 68 | 69 67 68 6c 69 67 68 74 |e is a h|ighlight|
|00003230| 65 64 20 72 65 67 69 6f | 6e 2c 20 74 68 65 20 73 |ed regio|n, the s|
|00003240| 6b 65 6c 65 74 6f 6e 20 | 74 65 78 74 20 69 73 20 |keleton |text is |
|00003250| 77 72 61 70 70 65 64 0a | 61 72 6f 75 6e 64 20 74 |wrapped.|around t|
|00003260| 68 65 20 72 65 67 69 6f | 6e 20 74 65 78 74 2e 0a |he regio|n text..|
|00003270| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00003280| 6e 74 20 41 52 47 20 73 | 61 79 73 20 74 6f 20 77 |nt ARG s|ays to w|
|00003290| 72 61 70 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |rap the |skeleton|
|000032a0| 20 61 72 6f 75 6e 64 20 | 74 68 65 20 6e 65 78 74 | around |the next|
|000032b0| 20 41 52 47 20 77 6f 72 | 64 73 2e 0a 41 20 70 72 | ARG wor|ds..A pr|
|000032c0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 6f 66 |efix arg|ument of|
|000032d0| 20 7a 65 72 6f 20 73 61 | 79 73 20 74 6f 20 77 72 | zero sa|ys to wr|
|000032e0| 61 70 20 61 72 6f 75 6e | 64 20 7a 65 72 6f 20 77 |ap aroun|d zero w|
|000032f0| 6f 72 64 73 2d 2d 2d 74 | 68 61 74 20 69 73 2c 20 |ords---t|hat is, |
|00003300| 6e 6f 74 68 69 6e 67 2e | 0a 54 68 69 73 20 69 73 |nothing.|.This is|
|00003310| 20 61 20 77 61 79 20 6f | 66 20 6f 76 65 72 69 64 | a way o|f overid|
|00003320| 69 6e 67 20 74 68 65 20 | 75 73 65 20 6f 66 20 61 |ing the |use of a|
|00003330| 20 68 69 67 68 6c 69 67 | 68 74 65 64 20 72 65 67 | highlig|hted reg|
|00003340| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00003350| 27 61 64 61 2d 66 6f 72 | 2d 6c 6f 6f 70 2d 70 72 |'ada-for|-loop-pr|
|00003360| 6f 6d 70 74 2d 72 61 6e | 67 65 20 23 5b 28 26 6f |ompt-ran|ge #[(&o|
|00003370| 70 74 69 6f 6e 61 6c 20 | 73 74 72 20 61 72 67 29 |ptional |str arg)|
|00003380| 20 22 c0 c1 5c 6e 0b 23 | 87 22 20 5b 73 6b 65 6c | "..\n.#|." [skel|
|00003390| 65 74 6f 6e 2d 70 72 6f | 78 79 2d 6e 65 77 20 28 |eton-pro|xy-new (|
|000033a0| 22 5b 6c 6f 6f 70 20 72 | 61 6e 67 65 5d 3a 20 22 |"[loop r|ange]: "|
|000033b0| 20 73 74 72 29 20 73 74 | 72 20 61 72 67 5d 20 34 | str) st|r arg] 4|
|000033c0| 20 28 23 24 20 2e 20 31 | 32 36 37 33 29 20 22 2a | (#$ . 1|2673) "*|
|000033d0| 50 5c 6e 50 22 5d 29 0a | 23 40 34 39 38 20 42 75 |P\nP"]).|#@498 Bu|
|000033e0| 69 6c 64 20 61 20 73 6b | 65 6c 65 74 6f 6e 20 66 |ild a sk|eleton f|
|000033f0| 6f 72 2d 6c 6f 6f 70 20 | 73 74 61 74 65 6d 65 6e |or-loop |statemen|
|00003400| 74 2c 20 70 72 6f 6d 70 | 74 69 6e 67 20 66 6f 72 |t, promp|ting for|
|00003410| 20 74 68 65 20 6c 6f 6f | 70 20 70 61 72 61 6d 65 | the loo|p parame|
|00003420| 74 65 72 73 2e 0a 0a 54 | 68 69 73 20 69 73 20 61 |ters...T|his is a|
|00003430| 20 73 6b 65 6c 65 74 6f | 6e 20 63 6f 6d 6d 61 6e | skeleto|n comman|
|00003440| 64 20 28 73 65 65 20 60 | 73 6b 65 6c 65 74 6f 6e |d (see `|skeleton|
|00003450| 2d 69 6e 73 65 72 74 27 | 29 2e 0a 4e 6f 72 6d 61 |-insert'|)..Norma|
|00003460| 6c 6c 79 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |lly the |skeleton|
|00003470| 20 74 65 78 74 20 69 73 | 20 69 6e 73 65 72 74 65 | text is| inserte|
|00003480| 64 20 61 74 20 70 6f 69 | 6e 74 2c 20 77 69 74 68 |d at poi|nt, with|
|00003490| 20 6e 6f 74 68 69 6e 67 | 20 22 69 6e 73 69 64 65 | nothing| "inside|
|000034a0| 22 2e 0a 49 66 20 74 68 | 65 72 65 20 69 73 20 61 |"..If th|ere is a|
|000034b0| 20 68 69 67 68 6c 69 67 | 68 74 65 64 20 72 65 67 | highlig|hted reg|
|000034c0| 69 6f 6e 2c 20 74 68 65 | 20 73 6b 65 6c 65 74 6f |ion, the| skeleto|
|000034d0| 6e 20 74 65 78 74 20 69 | 73 20 77 72 61 70 70 65 |n text i|s wrappe|
|000034e0| 64 0a 61 72 6f 75 6e 64 | 20 74 68 65 20 72 65 67 |d.around| the reg|
|000034f0| 69 6f 6e 20 74 65 78 74 | 2e 0a 0a 41 20 70 72 65 |ion text|...A pre|
|00003500| 66 69 78 20 61 72 67 75 | 6d 65 6e 74 20 41 52 47 |fix argu|ment ARG|
|00003510| 20 73 61 79 73 20 74 6f | 20 77 72 61 70 20 74 68 | says to| wrap th|
|00003520| 65 20 73 6b 65 6c 65 74 | 6f 6e 20 61 72 6f 75 6e |e skelet|on aroun|
|00003530| 64 20 74 68 65 20 6e 65 | 78 74 20 41 52 47 20 77 |d the ne|xt ARG w|
|00003540| 6f 72 64 73 2e 0a 41 20 | 70 72 65 66 69 78 20 61 |ords..A |prefix a|
|00003550| 72 67 75 6d 65 6e 74 20 | 6f 66 20 7a 65 72 6f 20 |rgument |of zero |
|00003560| 73 61 79 73 20 74 6f 20 | 77 72 61 70 20 61 72 6f |says to |wrap aro|
|00003570| 75 6e 64 20 7a 65 72 6f | 20 77 6f 72 64 73 2d 2d |und zero| words--|
|00003580| 2d 74 68 61 74 20 69 73 | 2c 20 6e 6f 74 68 69 6e |-that is|, nothin|
|00003590| 67 2e 0a 54 68 69 73 20 | 69 73 20 61 20 77 61 79 |g..This |is a way|
|000035a0| 20 6f 66 20 6f 76 65 72 | 69 64 69 6e 67 20 74 68 | of over|iding th|
|000035b0| 65 20 75 73 65 20 6f 66 | 20 61 20 68 69 67 68 6c |e use of| a highl|
|000035c0| 69 67 68 74 65 64 20 72 | 65 67 69 6f 6e 2e 1f 0a |ighted r|egion...|
|000035d0| 28 64 65 66 61 6c 69 61 | 73 20 27 61 64 61 2d 66 |(defalia|s 'ada-f|
|000035e0| 6f 72 2d 6c 6f 6f 70 20 | 23 5b 28 26 6f 70 74 69 |or-loop |#[(&opti|
|000035f0| 6f 6e 61 6c 20 73 74 72 | 20 61 72 67 29 20 22 c0 |onal str| arg) ".|
|00003600| c1 5c 6e 0b 23 87 22 20 | 5b 73 6b 65 6c 65 74 6f |.\n.#." |[skeleto|
|00003610| 6e 2d 70 72 6f 78 79 2d | 6e 65 77 20 28 22 5b 6c |n-proxy-|new ("[l|
|00003620| 6f 6f 70 20 6e 61 6d 65 | 5d 3a 20 22 20 3c 20 73 |oop name|]: " < s|
|00003630| 74 72 20 26 20 3f 5c 3a | 20 26 20 6e 20 3e 20 22 |tr & ?\:| & n > "|
|00003640| 66 6f 72 20 22 20 28 61 | 64 61 2d 66 6f 72 2d 6c |for " (a|da-for-l|
|00003650| 6f 6f 70 2d 70 72 6f 6d | 70 74 2d 76 61 72 69 61 |oop-prom|pt-varia|
|00003660| 62 6c 65 29 20 22 20 69 | 6e 20 22 20 28 61 64 61 |ble) " i|n " (ada|
|00003670| 2d 66 6f 72 2d 6c 6f 6f | 70 2d 70 72 6f 6d 70 74 |-for-loo|p-prompt|
|00003680| 2d 72 61 6e 67 65 29 20 | 22 20 6c 6f 6f 70 22 20 |-range) |" loop" |
|00003690| 6e 20 3e 20 5f 20 6e 20 | 3c 20 22 65 6e 64 20 6c |n > _ n |< "end l|
|000036a0| 6f 6f 70 20 22 20 73 74 | 72 20 7c 20 2d 31 20 3f |oop " st|r | -1 ?|
|000036b0| 5c 3b 29 20 73 74 72 20 | 61 72 67 5d 20 34 20 28 |\;) str |arg] 4 (|
|000036c0| 23 24 20 2e 20 31 33 32 | 37 38 29 20 22 2a 50 5c |#$ . 132|78) "*P\|
|000036d0| 6e 50 22 5d 29 0a 23 40 | 34 36 33 20 50 72 6f 6d |nP"]).#@|463 Prom|
|000036e0| 70 74 20 66 6f 72 20 74 | 68 65 20 6c 6f 6f 70 20 |pt for t|he loop |
|000036f0| 65 6e 74 72 79 20 63 6f | 6e 64 69 74 69 6f 6e 2e |entry co|ndition.|
|00003700| 0a 0a 54 68 69 73 20 69 | 73 20 61 20 73 6b 65 6c |..This i|s a skel|
|00003710| 65 74 6f 6e 20 63 6f 6d | 6d 61 6e 64 20 28 73 65 |eton com|mand (se|
|00003720| 65 20 60 73 6b 65 6c 65 | 74 6f 6e 2d 69 6e 73 65 |e `skele|ton-inse|
|00003730| 72 74 27 29 2e 0a 4e 6f | 72 6d 61 6c 6c 79 20 74 |rt')..No|rmally t|
|00003740| 68 65 20 73 6b 65 6c 65 | 74 6f 6e 20 74 65 78 74 |he skele|ton text|
|00003750| 20 69 73 20 69 6e 73 65 | 72 74 65 64 20 61 74 20 | is inse|rted at |
|00003760| 70 6f 69 6e 74 2c 20 77 | 69 74 68 20 6e 6f 74 68 |point, w|ith noth|
|00003770| 69 6e 67 20 22 69 6e 73 | 69 64 65 22 2e 0a 49 66 |ing "ins|ide"..If|
|00003780| 20 74 68 65 72 65 20 69 | 73 20 61 20 68 69 67 68 | there i|s a high|
|00003790| 6c 69 67 68 74 65 64 20 | 72 65 67 69 6f 6e 2c 20 |lighted |region, |
|000037a0| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 74 65 78 |the skel|eton tex|
|000037b0| 74 20 69 73 20 77 72 61 | 70 70 65 64 0a 61 72 6f |t is wra|pped.aro|
|000037c0| 75 6e 64 20 74 68 65 20 | 72 65 67 69 6f 6e 20 74 |und the |region t|
|000037d0| 65 78 74 2e 0a 0a 41 20 | 70 72 65 66 69 78 20 61 |ext...A |prefix a|
|000037e0| 72 67 75 6d 65 6e 74 20 | 41 52 47 20 73 61 79 73 |rgument |ARG says|
|000037f0| 20 74 6f 20 77 72 61 70 | 20 74 68 65 20 73 6b 65 | to wrap| the ske|
|00003800| 6c 65 74 6f 6e 20 61 72 | 6f 75 6e 64 20 74 68 65 |leton ar|ound the|
|00003810| 20 6e 65 78 74 20 41 52 | 47 20 77 6f 72 64 73 2e | next AR|G words.|
|00003820| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00003830| 6e 74 20 6f 66 20 7a 65 | 72 6f 20 73 61 79 73 20 |nt of ze|ro says |
|00003840| 74 6f 20 77 72 61 70 20 | 61 72 6f 75 6e 64 20 7a |to wrap |around z|
|00003850| 65 72 6f 20 77 6f 72 64 | 73 2d 2d 2d 74 68 61 74 |ero word|s---that|
|00003860| 20 69 73 2c 20 6e 6f 74 | 68 69 6e 67 2e 0a 54 68 | is, not|hing..Th|
|00003870| 69 73 20 69 73 20 61 20 | 77 61 79 20 6f 66 20 6f |is is a |way of o|
|00003880| 76 65 72 69 64 69 6e 67 | 20 74 68 65 20 75 73 65 |veriding| the use|
|00003890| 20 6f 66 20 61 20 68 69 | 67 68 6c 69 67 68 74 65 | of a hi|ghlighte|
|000038a0| 64 20 72 65 67 69 6f 6e | 2e 1f 0a 28 64 65 66 61 |d region|...(defa|
|000038b0| 6c 69 61 73 20 27 61 64 | 61 2d 77 68 69 6c 65 2d |lias 'ad|a-while-|
|000038c0| 6c 6f 6f 70 2d 70 72 6f | 6d 70 74 2d 65 6e 74 72 |loop-pro|mpt-entr|
|000038d0| 79 2d 63 6f 6e 64 69 74 | 69 6f 6e 20 23 5b 28 26 |y-condit|ion #[(&|
|000038e0| 6f 70 74 69 6f 6e 61 6c | 20 73 74 72 20 61 72 67 |optional| str arg|
|000038f0| 29 20 22 c0 c1 5c 6e 0b | 23 87 22 20 5b 73 6b 65 |) "..\n.|#." [ske|
|00003900| 6c 65 74 6f 6e 2d 70 72 | 6f 78 79 2d 6e 65 77 20 |leton-pr|oxy-new |
|00003910| 28 22 5b 65 6e 74 72 79 | 20 63 6f 6e 64 69 74 69 |("[entry| conditi|
|00003920| 6f 6e 5d 3a 20 22 20 73 | 74 72 29 20 73 74 72 20 |on]: " s|tr) str |
|00003930| 61 72 67 5d 20 34 20 28 | 23 24 20 2e 20 31 34 30 |arg] 4 (|#$ . 140|
|00003940| 34 34 29 20 22 2a 50 5c | 6e 50 22 5d 29 0a 23 40 |44) "*P\|nP"]).#@|
|00003950| 34 36 36 20 49 6e 73 65 | 72 74 20 61 20 73 6b 65 |466 Inse|rt a ske|
|00003960| 6c 65 74 6f 6e 20 77 68 | 69 6c 65 20 6c 6f 6f 70 |leton wh|ile loop|
|00003970| 20 73 74 61 74 65 6d 65 | 6e 74 2e 0a 0a 54 68 69 | stateme|nt...Thi|
|00003980| 73 20 69 73 20 61 20 73 | 6b 65 6c 65 74 6f 6e 20 |s is a s|keleton |
|00003990| 63 6f 6d 6d 61 6e 64 20 | 28 73 65 65 20 60 73 6b |command |(see `sk|
|000039a0| 65 6c 65 74 6f 6e 2d 69 | 6e 73 65 72 74 27 29 2e |eleton-i|nsert').|
|000039b0| 0a 4e 6f 72 6d 61 6c 6c | 79 20 74 68 65 20 73 6b |.Normall|y the sk|
|000039c0| 65 6c 65 74 6f 6e 20 74 | 65 78 74 20 69 73 20 69 |eleton t|ext is i|
|000039d0| 6e 73 65 72 74 65 64 20 | 61 74 20 70 6f 69 6e 74 |nserted |at point|
|000039e0| 2c 20 77 69 74 68 20 6e | 6f 74 68 69 6e 67 20 22 |, with n|othing "|
|000039f0| 69 6e 73 69 64 65 22 2e | 0a 49 66 20 74 68 65 72 |inside".|.If ther|
|00003a00| 65 20 69 73 20 61 20 68 | 69 67 68 6c 69 67 68 74 |e is a h|ighlight|
|00003a10| 65 64 20 72 65 67 69 6f | 6e 2c 20 74 68 65 20 73 |ed regio|n, the s|
|00003a20| 6b 65 6c 65 74 6f 6e 20 | 74 65 78 74 20 69 73 20 |keleton |text is |
|00003a30| 77 72 61 70 70 65 64 0a | 61 72 6f 75 6e 64 20 74 |wrapped.|around t|
|00003a40| 68 65 20 72 65 67 69 6f | 6e 20 74 65 78 74 2e 0a |he regio|n text..|
|00003a50| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00003a60| 6e 74 20 41 52 47 20 73 | 61 79 73 20 74 6f 20 77 |nt ARG s|ays to w|
|00003a70| 72 61 70 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |rap the |skeleton|
|00003a80| 20 61 72 6f 75 6e 64 20 | 74 68 65 20 6e 65 78 74 | around |the next|
|00003a90| 20 41 52 47 20 77 6f 72 | 64 73 2e 0a 41 20 70 72 | ARG wor|ds..A pr|
|00003aa0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 6f 66 |efix arg|ument of|
|00003ab0| 20 7a 65 72 6f 20 73 61 | 79 73 20 74 6f 20 77 72 | zero sa|ys to wr|
|00003ac0| 61 70 20 61 72 6f 75 6e | 64 20 7a 65 72 6f 20 77 |ap aroun|d zero w|
|00003ad0| 6f 72 64 73 2d 2d 2d 74 | 68 61 74 20 69 73 2c 20 |ords---t|hat is, |
|00003ae0| 6e 6f 74 68 69 6e 67 2e | 0a 54 68 69 73 20 69 73 |nothing.|.This is|
|00003af0| 20 61 20 77 61 79 20 6f | 66 20 6f 76 65 72 69 64 | a way o|f overid|
|00003b00| 69 6e 67 20 74 68 65 20 | 75 73 65 20 6f 66 20 61 |ing the |use of a|
|00003b10| 20 68 69 67 68 6c 69 67 | 68 74 65 64 20 72 65 67 | highlig|hted reg|
|00003b20| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00003b30| 27 61 64 61 2d 77 68 69 | 6c 65 2d 6c 6f 6f 70 20 |'ada-whi|le-loop |
|00003b40| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 73 74 72 |#[(&opti|onal str|
|00003b50| 20 61 72 67 29 20 22 c0 | c1 5c 6e 0b 23 87 22 20 | arg) ".|.\n.#." |
|00003b60| 5b 73 6b 65 6c 65 74 6f | 6e 2d 70 72 6f 78 79 2d |[skeleto|n-proxy-|
|00003b70| 6e 65 77 20 28 22 5b 6c | 6f 6f 70 20 6e 61 6d 65 |new ("[l|oop name|
|00003b80| 5d 3a 20 22 20 3c 20 73 | 74 72 20 26 20 3f 5c 3a |]: " < s|tr & ?\:|
|00003b90| 20 26 20 6e 20 3e 20 22 | 77 68 69 6c 65 20 22 20 | & n > "|while " |
|00003ba0| 28 61 64 61 2d 77 68 69 | 6c 65 2d 6c 6f 6f 70 2d |(ada-whi|le-loop-|
|00003bb0| 70 72 6f 6d 70 74 2d 65 | 6e 74 72 79 2d 63 6f 6e |prompt-e|ntry-con|
|00003bc0| 64 69 74 69 6f 6e 29 20 | 22 20 6c 6f 6f 70 22 20 |dition) |" loop" |
|00003bd0| 6e 20 3e 20 5f 20 6e 20 | 3c 20 22 65 6e 64 20 6c |n > _ n |< "end l|
|00003be0| 6f 6f 70 20 22 20 73 74 | 72 20 7c 20 2d 31 20 3f |oop " st|r | -1 ?|
|00003bf0| 5c 3b 29 20 73 74 72 20 | 61 72 67 5d 20 34 20 28 |\;) str |arg] 4 (|
|00003c00| 23 24 20 2e 20 31 34 36 | 37 36 29 20 22 2a 50 5c |#$ . 146|76) "*P\|
|00003c10| 6e 50 22 5d 29 0a 23 40 | 34 36 37 20 49 6e 73 65 |nP"]).#@|467 Inse|
|00003c20| 72 74 20 61 20 73 6b 65 | 6c 65 74 6f 6e 20 70 61 |rt a ske|leton pa|
|00003c30| 63 6b 61 67 65 20 73 70 | 65 63 69 66 69 63 61 74 |ckage sp|ecificat|
|00003c40| 69 6f 6e 2e 0a 0a 54 68 | 69 73 20 69 73 20 61 20 |ion...Th|is is a |
|00003c50| 73 6b 65 6c 65 74 6f 6e | 20 63 6f 6d 6d 61 6e 64 |skeleton| command|
|00003c60| 20 28 73 65 65 20 60 73 | 6b 65 6c 65 74 6f 6e 2d | (see `s|keleton-|
|00003c70| 69 6e 73 65 72 74 27 29 | 2e 0a 4e 6f 72 6d 61 6c |insert')|..Normal|
|00003c80| 6c 79 20 74 68 65 20 73 | 6b 65 6c 65 74 6f 6e 20 |ly the s|keleton |
|00003c90| 74 65 78 74 20 69 73 20 | 69 6e 73 65 72 74 65 64 |text is |inserted|
|00003ca0| 20 61 74 20 70 6f 69 6e | 74 2c 20 77 69 74 68 20 | at poin|t, with |
|00003cb0| 6e 6f 74 68 69 6e 67 20 | 22 69 6e 73 69 64 65 22 |nothing |"inside"|
|00003cc0| 2e 0a 49 66 20 74 68 65 | 72 65 20 69 73 20 61 20 |..If the|re is a |
|00003cd0| 68 69 67 68 6c 69 67 68 | 74 65 64 20 72 65 67 69 |highligh|ted regi|
|00003ce0| 6f 6e 2c 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |on, the |skeleton|
|00003cf0| 20 74 65 78 74 20 69 73 | 20 77 72 61 70 70 65 64 | text is| wrapped|
|00003d00| 0a 61 72 6f 75 6e 64 20 | 74 68 65 20 72 65 67 69 |.around |the regi|
|00003d10| 6f 6e 20 74 65 78 74 2e | 0a 0a 41 20 70 72 65 66 |on text.|..A pref|
|00003d20| 69 78 20 61 72 67 75 6d | 65 6e 74 20 41 52 47 20 |ix argum|ent ARG |
|00003d30| 73 61 79 73 20 74 6f 20 | 77 72 61 70 20 74 68 65 |says to |wrap the|
|00003d40| 20 73 6b 65 6c 65 74 6f | 6e 20 61 72 6f 75 6e 64 | skeleto|n around|
|00003d50| 20 74 68 65 20 6e 65 78 | 74 20 41 52 47 20 77 6f | the nex|t ARG wo|
|00003d60| 72 64 73 2e 0a 41 20 70 | 72 65 66 69 78 20 61 72 |rds..A p|refix ar|
|00003d70| 67 75 6d 65 6e 74 20 6f | 66 20 7a 65 72 6f 20 73 |gument o|f zero s|
|00003d80| 61 79 73 20 74 6f 20 77 | 72 61 70 20 61 72 6f 75 |ays to w|rap arou|
|00003d90| 6e 64 20 7a 65 72 6f 20 | 77 6f 72 64 73 2d 2d 2d |nd zero |words---|
|00003da0| 74 68 61 74 20 69 73 2c | 20 6e 6f 74 68 69 6e 67 |that is,| nothing|
|00003db0| 2e 0a 54 68 69 73 20 69 | 73 20 61 20 77 61 79 20 |..This i|s a way |
|00003dc0| 6f 66 20 6f 76 65 72 69 | 64 69 6e 67 20 74 68 65 |of overi|ding the|
|00003dd0| 20 75 73 65 20 6f 66 20 | 61 20 68 69 67 68 6c 69 | use of |a highli|
|00003de0| 67 68 74 65 64 20 72 65 | 67 69 6f 6e 2e 1f 0a 28 |ghted re|gion...(|
|00003df0| 64 65 66 61 6c 69 61 73 | 20 27 61 64 61 2d 70 61 |defalias| 'ada-pa|
|00003e00| 63 6b 61 67 65 2d 73 70 | 65 63 20 23 5b 28 26 6f |ckage-sp|ec #[(&o|
|00003e10| 70 74 69 6f 6e 61 6c 20 | 73 74 72 20 61 72 67 29 |ptional |str arg)|
|00003e20| 20 22 c0 c1 5c 6e 0b 23 | 87 22 20 5b 73 6b 65 6c | "..\n.#|." [skel|
|00003e30| 65 74 6f 6e 2d 70 72 6f | 78 79 2d 6e 65 77 20 28 |eton-pro|xy-new (|
|00003e40| 22 5b 70 61 63 6b 61 67 | 65 20 6e 61 6d 65 5d 3a |"[packag|e name]:|
|00003e50| 20 22 20 22 70 61 63 6b | 61 67 65 20 22 20 73 74 | " "pack|age " st|
|00003e60| 72 20 22 20 69 73 22 20 | 6e 20 3e 20 5f 20 6e 20 |r " is" |n > _ n |
|00003e70| 3c 20 22 65 6e 64 20 22 | 20 73 74 72 20 3f 5c 3b |< "end "| str ?\;|
|00003e80| 29 20 73 74 72 20 61 72 | 67 5d 20 34 20 28 23 24 |) str ar|g] 4 (#$|
|00003e90| 20 2e 20 31 35 33 38 38 | 29 20 22 2a 50 5c 6e 50 | . 15388|) "*P\nP|
|00003ea0| 22 5d 29 0a 23 40 34 38 | 39 20 49 6e 73 65 72 74 |"]).#@48|9 Insert|
|00003eb0| 20 61 20 73 6b 65 6c 65 | 74 6f 6e 20 70 61 63 6b | a skele|ton pack|
|00003ec0| 61 67 65 20 62 6f 64 79 | 20 2d 2d 20 20 69 6e 63 |age body| --  inc|
|00003ed0| 6c 75 64 65 73 20 61 20 | 62 65 67 69 6e 20 73 74 |ludes a |begin st|
|00003ee0| 61 74 65 6d 65 6e 74 2e | 0a 0a 54 68 69 73 20 69 |atement.|..This i|
|00003ef0| 73 20 61 20 73 6b 65 6c | 65 74 6f 6e 20 63 6f 6d |s a skel|eton com|
|00003f00| 6d 61 6e 64 20 28 73 65 | 65 20 60 73 6b 65 6c 65 |mand (se|e `skele|
|00003f10| 74 6f 6e 2d 69 6e 73 65 | 72 74 27 29 2e 0a 4e 6f |ton-inse|rt')..No|
|00003f20| 72 6d 61 6c 6c 79 20 74 | 68 65 20 73 6b 65 6c 65 |rmally t|he skele|
|00003f30| 74 6f 6e 20 74 65 78 74 | 20 69 73 20 69 6e 73 65 |ton text| is inse|
|00003f40| 72 74 65 64 20 61 74 20 | 70 6f 69 6e 74 2c 20 77 |rted at |point, w|
|00003f50| 69 74 68 20 6e 6f 74 68 | 69 6e 67 20 22 69 6e 73 |ith noth|ing "ins|
|00003f60| 69 64 65 22 2e 0a 49 66 | 20 74 68 65 72 65 20 69 |ide"..If| there i|
|00003f70| 73 20 61 20 68 69 67 68 | 6c 69 67 68 74 65 64 20 |s a high|lighted |
|00003f80| 72 65 67 69 6f 6e 2c 20 | 74 68 65 20 73 6b 65 6c |region, |the skel|
|00003f90| 65 74 6f 6e 20 74 65 78 | 74 20 69 73 20 77 72 61 |eton tex|t is wra|
|00003fa0| 70 70 65 64 0a 61 72 6f | 75 6e 64 20 74 68 65 20 |pped.aro|und the |
|00003fb0| 72 65 67 69 6f 6e 20 74 | 65 78 74 2e 0a 0a 41 20 |region t|ext...A |
|00003fc0| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 20 |prefix a|rgument |
|00003fd0| 41 52 47 20 73 61 79 73 | 20 74 6f 20 77 72 61 70 |ARG says| to wrap|
|00003fe0| 20 74 68 65 20 73 6b 65 | 6c 65 74 6f 6e 20 61 72 | the ske|leton ar|
|00003ff0| 6f 75 6e 64 20 74 68 65 | 20 6e 65 78 74 20 41 52 |ound the| next AR|
|00004000| 47 20 77 6f 72 64 73 2e | 0a 41 20 70 72 65 66 69 |G words.|.A prefi|
|00004010| 78 20 61 72 67 75 6d 65 | 6e 74 20 6f 66 20 7a 65 |x argume|nt of ze|
|00004020| 72 6f 20 73 61 79 73 20 | 74 6f 20 77 72 61 70 20 |ro says |to wrap |
|00004030| 61 72 6f 75 6e 64 20 7a | 65 72 6f 20 77 6f 72 64 |around z|ero word|
|00004040| 73 2d 2d 2d 74 68 61 74 | 20 69 73 2c 20 6e 6f 74 |s---that| is, not|
|00004050| 68 69 6e 67 2e 0a 54 68 | 69 73 20 69 73 20 61 20 |hing..Th|is is a |
|00004060| 77 61 79 20 6f 66 20 6f | 76 65 72 69 64 69 6e 67 |way of o|veriding|
|00004070| 20 74 68 65 20 75 73 65 | 20 6f 66 20 61 20 68 69 | the use| of a hi|
|00004080| 67 68 6c 69 67 68 74 65 | 64 20 72 65 67 69 6f 6e |ghlighte|d region|
|00004090| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 64 |...(defa|lias 'ad|
|000040a0| 61 2d 70 61 63 6b 61 67 | 65 2d 62 6f 64 79 20 23 |a-packag|e-body #|
|000040b0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 74 72 20 |[(&optio|nal str |
|000040c0| 61 72 67 29 20 22 c0 c1 | 5c 6e 0b 23 87 22 20 5b |arg) "..|\n.#." [|
|000040d0| 73 6b 65 6c 65 74 6f 6e | 2d 70 72 6f 78 79 2d 6e |skeleton|-proxy-n|
|000040e0| 65 77 20 28 22 5b 70 61 | 63 6b 61 67 65 20 6e 61 |ew ("[pa|ckage na|
|000040f0| 6d 65 5d 3a 20 22 20 22 | 70 61 63 6b 61 67 65 20 |me]: " "|package |
|00004100| 62 6f 64 79 20 22 20 73 | 74 72 20 22 20 69 73 22 |body " s|tr " is"|
|00004110| 20 6e 20 3e 20 5f 20 6e | 20 3c 20 22 65 6e 64 20 | n > _ n| < "end |
|00004120| 22 20 73 74 72 20 3f 5c | 3b 29 20 73 74 72 20 61 |" str ?\|;) str a|
|00004130| 72 67 5d 20 34 20 28 23 | 24 20 2e 20 31 36 30 34 |rg] 4 (#|$ . 1604|
|00004140| 32 29 20 22 2a 50 5c 6e | 50 22 5d 29 0a 23 40 34 |2) "*P\n|P"]).#@4|
|00004150| 39 30 20 55 6e 64 65 6e | 74 20 61 6e 64 20 73 74 |90 Unden|t and st|
|00004160| 61 72 74 20 61 20 70 72 | 69 76 61 74 65 20 73 65 |art a pr|ivate se|
|00004170| 63 74 69 6f 6e 20 6f 66 | 20 61 20 70 61 63 6b 61 |ction of| a packa|
|00004180| 67 65 20 73 70 65 63 2e | 20 52 65 69 6e 64 65 6e |ge spec.| Reinden|
|00004190| 74 2e 0a 0a 54 68 69 73 | 20 69 73 20 61 20 73 6b |t...This| is a sk|
|000041a0| 65 6c 65 74 6f 6e 20 63 | 6f 6d 6d 61 6e 64 20 28 |eleton c|ommand (|
|000041b0| 73 65 65 20 60 73 6b 65 | 6c 65 74 6f 6e 2d 69 6e |see `ske|leton-in|
|000041c0| 73 65 72 74 27 29 2e 0a | 4e 6f 72 6d 61 6c 6c 79 |sert')..|Normally|
|000041d0| 20 74 68 65 20 73 6b 65 | 6c 65 74 6f 6e 20 74 65 | the ske|leton te|
|000041e0| 78 74 20 69 73 20 69 6e | 73 65 72 74 65 64 20 61 |xt is in|serted a|
|000041f0| 74 20 70 6f 69 6e 74 2c | 20 77 69 74 68 20 6e 6f |t point,| with no|
|00004200| 74 68 69 6e 67 20 22 69 | 6e 73 69 64 65 22 2e 0a |thing "i|nside"..|
|00004210| 49 66 20 74 68 65 72 65 | 20 69 73 20 61 20 68 69 |If there| is a hi|
|00004220| 67 68 6c 69 67 68 74 65 | 64 20 72 65 67 69 6f 6e |ghlighte|d region|
|00004230| 2c 20 74 68 65 20 73 6b | 65 6c 65 74 6f 6e 20 74 |, the sk|eleton t|
|00004240| 65 78 74 20 69 73 20 77 | 72 61 70 70 65 64 0a 61 |ext is w|rapped.a|
|00004250| 72 6f 75 6e 64 20 74 68 | 65 20 72 65 67 69 6f 6e |round th|e region|
|00004260| 20 74 65 78 74 2e 0a 0a | 41 20 70 72 65 66 69 78 | text...|A prefix|
|00004270| 20 61 72 67 75 6d 65 6e | 74 20 41 52 47 20 73 61 | argumen|t ARG sa|
|00004280| 79 73 20 74 6f 20 77 72 | 61 70 20 74 68 65 20 73 |ys to wr|ap the s|
|00004290| 6b 65 6c 65 74 6f 6e 20 | 61 72 6f 75 6e 64 20 74 |keleton |around t|
|000042a0| 68 65 20 6e 65 78 74 20 | 41 52 47 20 77 6f 72 64 |he next |ARG word|
|000042b0| 73 2e 0a 41 20 70 72 65 | 66 69 78 20 61 72 67 75 |s..A pre|fix argu|
|000042c0| 6d 65 6e 74 20 6f 66 20 | 7a 65 72 6f 20 73 61 79 |ment of |zero say|
|000042d0| 73 20 74 6f 20 77 72 61 | 70 20 61 72 6f 75 6e 64 |s to wra|p around|
|000042e0| 20 7a 65 72 6f 20 77 6f | 72 64 73 2d 2d 2d 74 68 | zero wo|rds---th|
|000042f0| 61 74 20 69 73 2c 20 6e | 6f 74 68 69 6e 67 2e 0a |at is, n|othing..|
|00004300| 54 68 69 73 20 69 73 20 | 61 20 77 61 79 20 6f 66 |This is |a way of|
|00004310| 20 6f 76 65 72 69 64 69 | 6e 67 20 74 68 65 20 75 | overidi|ng the u|
|00004320| 73 65 20 6f 66 20 61 20 | 68 69 67 68 6c 69 67 68 |se of a |highligh|
|00004330| 74 65 64 20 72 65 67 69 | 6f 6e 2e 1f 0a 28 64 65 |ted regi|on...(de|
|00004340| 66 61 6c 69 61 73 20 27 | 61 64 61 2d 70 72 69 76 |falias '|ada-priv|
|00004350| 61 74 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ate #[(&|optional|
|00004360| 20 73 74 72 20 61 72 67 | 29 20 22 c0 c1 5c 6e 0b | str arg|) "..\n.|
|00004370| 23 87 22 20 5b 73 6b 65 | 6c 65 74 6f 6e 2d 70 72 |#." [ske|leton-pr|
|00004380| 6f 78 79 2d 6e 65 77 20 | 28 6e 69 6c 20 3c 20 22 |oxy-new |(nil < "|
|00004390| 70 72 69 76 61 74 65 22 | 20 6e 20 3e 29 20 73 74 |private"| n >) st|
|000043a0| 72 20 61 72 67 5d 20 34 | 20 28 23 24 20 2e 20 31 |r arg] 4| (#$ . 1|
|000043b0| 36 37 32 33 29 20 22 2a | 50 5c 6e 50 22 5d 29 0a |6723) "*|P\nP"]).|
|000043c0| 23 40 34 36 30 20 50 72 | 6f 6d 70 74 73 20 66 6f |#@460 Pr|ompts fo|
|000043d0| 72 20 66 75 6e 63 74 69 | 6f 6e 20 72 65 73 75 6c |r functi|on resul|
|000043e0| 74 20 74 79 70 65 2e 0a | 0a 54 68 69 73 20 69 73 |t type..|.This is|
|000043f0| 20 61 20 73 6b 65 6c 65 | 74 6f 6e 20 63 6f 6d 6d | a skele|ton comm|
|00004400| 61 6e 64 20 28 73 65 65 | 20 60 73 6b 65 6c 65 74 |and (see| `skelet|
|00004410| 6f 6e 2d 69 6e 73 65 72 | 74 27 29 2e 0a 4e 6f 72 |on-inser|t')..Nor|
|00004420| 6d 61 6c 6c 79 20 74 68 | 65 20 73 6b 65 6c 65 74 |mally th|e skelet|
|00004430| 6f 6e 20 74 65 78 74 20 | 69 73 20 69 6e 73 65 72 |on text |is inser|
|00004440| 74 65 64 20 61 74 20 70 | 6f 69 6e 74 2c 20 77 69 |ted at p|oint, wi|
|00004450| 74 68 20 6e 6f 74 68 69 | 6e 67 20 22 69 6e 73 69 |th nothi|ng "insi|
|00004460| 64 65 22 2e 0a 49 66 20 | 74 68 65 72 65 20 69 73 |de"..If |there is|
|00004470| 20 61 20 68 69 67 68 6c | 69 67 68 74 65 64 20 72 | a highl|ighted r|
|00004480| 65 67 69 6f 6e 2c 20 74 | 68 65 20 73 6b 65 6c 65 |egion, t|he skele|
|00004490| 74 6f 6e 20 74 65 78 74 | 20 69 73 20 77 72 61 70 |ton text| is wrap|
|000044a0| 70 65 64 0a 61 72 6f 75 | 6e 64 20 74 68 65 20 72 |ped.arou|nd the r|
|000044b0| 65 67 69 6f 6e 20 74 65 | 78 74 2e 0a 0a 41 20 70 |egion te|xt...A p|
|000044c0| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 20 41 |refix ar|gument A|
|000044d0| 52 47 20 73 61 79 73 20 | 74 6f 20 77 72 61 70 20 |RG says |to wrap |
|000044e0| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 61 72 6f |the skel|eton aro|
|000044f0| 75 6e 64 20 74 68 65 20 | 6e 65 78 74 20 41 52 47 |und the |next ARG|
|00004500| 20 77 6f 72 64 73 2e 0a | 41 20 70 72 65 66 69 78 | words..|A prefix|
|00004510| 20 61 72 67 75 6d 65 6e | 74 20 6f 66 20 7a 65 72 | argumen|t of zer|
|00004520| 6f 20 73 61 79 73 20 74 | 6f 20 77 72 61 70 20 61 |o says t|o wrap a|
|00004530| 72 6f 75 6e 64 20 7a 65 | 72 6f 20 77 6f 72 64 73 |round ze|ro words|
|00004540| 2d 2d 2d 74 68 61 74 20 | 69 73 2c 20 6e 6f 74 68 |---that |is, noth|
|00004550| 69 6e 67 2e 0a 54 68 69 | 73 20 69 73 20 61 20 77 |ing..Thi|s is a w|
|00004560| 61 79 20 6f 66 20 6f 76 | 65 72 69 64 69 6e 67 20 |ay of ov|eriding |
|00004570| 74 68 65 20 75 73 65 20 | 6f 66 20 61 20 68 69 67 |the use |of a hig|
|00004580| 68 6c 69 67 68 74 65 64 | 20 72 65 67 69 6f 6e 2e |hlighted| region.|
|00004590| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |..(defal|ias 'ada|
|000045a0| 2d 66 75 6e 63 74 69 6f | 6e 2d 73 70 65 63 2d 70 |-functio|n-spec-p|
|000045b0| 72 6f 6d 70 74 2d 72 65 | 74 75 72 6e 20 23 5b 28 |rompt-re|turn #[(|
|000045c0| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 74 72 20 61 72 |&optiona|l str ar|
|000045d0| 67 29 20 22 c0 c1 5c 6e | 0b 23 87 22 20 5b 73 6b |g) "..\n|.#." [sk|
|000045e0| 65 6c 65 74 6f 6e 2d 70 | 72 6f 78 79 2d 6e 65 77 |eleton-p|roxy-new|
|000045f0| 20 28 22 5b 72 65 73 75 | 6c 74 20 74 79 70 65 5d | ("[resu|lt type]|
|00004600| 3a 20 22 20 73 74 72 29 | 20 73 74 72 20 61 72 67 |: " str)| str arg|
|00004610| 5d 20 34 20 28 23 24 20 | 2e 20 31 37 33 35 30 29 |] 4 (#$ |. 17350)|
|00004620| 20 22 2a 50 5c 6e 50 22 | 5d 29 0a 23 40 34 39 32 | "*P\nP"|]).#@492|
|00004630| 20 49 6e 73 65 72 74 20 | 61 20 66 75 6e 63 74 69 | Insert |a functi|
|00004640| 6f 6e 20 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |on speci|fication|
|00004650| 2e 20 20 50 72 6f 6d 70 | 74 73 20 66 6f 72 20 6e |.  Promp|ts for n|
|00004660| 61 6d 65 20 61 6e 64 20 | 61 72 67 75 6d 65 6e 74 |ame and |argument|
|00004670| 73 2e 0a 0a 54 68 69 73 | 20 69 73 20 61 20 73 6b |s...This| is a sk|
|00004680| 65 6c 65 74 6f 6e 20 63 | 6f 6d 6d 61 6e 64 20 28 |eleton c|ommand (|
|00004690| 73 65 65 20 60 73 6b 65 | 6c 65 74 6f 6e 2d 69 6e |see `ske|leton-in|
|000046a0| 73 65 72 74 27 29 2e 0a | 4e 6f 72 6d 61 6c 6c 79 |sert')..|Normally|
|000046b0| 20 74 68 65 20 73 6b 65 | 6c 65 74 6f 6e 20 74 65 | the ske|leton te|
|000046c0| 78 74 20 69 73 20 69 6e | 73 65 72 74 65 64 20 61 |xt is in|serted a|
|000046d0| 74 20 70 6f 69 6e 74 2c | 20 77 69 74 68 20 6e 6f |t point,| with no|
|000046e0| 74 68 69 6e 67 20 22 69 | 6e 73 69 64 65 22 2e 0a |thing "i|nside"..|
|000046f0| 49 66 20 74 68 65 72 65 | 20 69 73 20 61 20 68 69 |If there| is a hi|
|00004700| 67 68 6c 69 67 68 74 65 | 64 20 72 65 67 69 6f 6e |ghlighte|d region|
|00004710| 2c 20 74 68 65 20 73 6b | 65 6c 65 74 6f 6e 20 74 |, the sk|eleton t|
|00004720| 65 78 74 20 69 73 20 77 | 72 61 70 70 65 64 0a 61 |ext is w|rapped.a|
|00004730| 72 6f 75 6e 64 20 74 68 | 65 20 72 65 67 69 6f 6e |round th|e region|
|00004740| 20 74 65 78 74 2e 0a 0a | 41 20 70 72 65 66 69 78 | text...|A prefix|
|00004750| 20 61 72 67 75 6d 65 6e | 74 20 41 52 47 20 73 61 | argumen|t ARG sa|
|00004760| 79 73 20 74 6f 20 77 72 | 61 70 20 74 68 65 20 73 |ys to wr|ap the s|
|00004770| 6b 65 6c 65 74 6f 6e 20 | 61 72 6f 75 6e 64 20 74 |keleton |around t|
|00004780| 68 65 20 6e 65 78 74 20 | 41 52 47 20 77 6f 72 64 |he next |ARG word|
|00004790| 73 2e 0a 41 20 70 72 65 | 66 69 78 20 61 72 67 75 |s..A pre|fix argu|
|000047a0| 6d 65 6e 74 20 6f 66 20 | 7a 65 72 6f 20 73 61 79 |ment of |zero say|
|000047b0| 73 20 74 6f 20 77 72 61 | 70 20 61 72 6f 75 6e 64 |s to wra|p around|
|000047c0| 20 7a 65 72 6f 20 77 6f | 72 64 73 2d 2d 2d 74 68 | zero wo|rds---th|
|000047d0| 61 74 20 69 73 2c 20 6e | 6f 74 68 69 6e 67 2e 0a |at is, n|othing..|
|000047e0| 54 68 69 73 20 69 73 20 | 61 20 77 61 79 20 6f 66 |This is |a way of|
|000047f0| 20 6f 76 65 72 69 64 69 | 6e 67 20 74 68 65 20 75 | overidi|ng the u|
|00004800| 73 65 20 6f 66 20 61 20 | 68 69 67 68 6c 69 67 68 |se of a |highligh|
|00004810| 74 65 64 20 72 65 67 69 | 6f 6e 2e 1f 0a 28 64 65 |ted regi|on...(de|
|00004820| 66 61 6c 69 61 73 20 27 | 61 64 61 2d 66 75 6e 63 |falias '|ada-func|
|00004830| 74 69 6f 6e 2d 73 70 65 | 63 20 23 5b 28 26 6f 70 |tion-spe|c #[(&op|
|00004840| 74 69 6f 6e 61 6c 20 73 | 74 72 20 61 72 67 29 20 |tional s|tr arg) |
|00004850| 22 c0 c1 5c 6e 0b 23 87 | 22 20 5b 73 6b 65 6c 65 |"..\n.#.|" [skele|
|00004860| 74 6f 6e 2d 70 72 6f 78 | 79 2d 6e 65 77 20 28 22 |ton-prox|y-new ("|
|00004870| 5b 66 75 6e 63 74 69 6f | 6e 20 6e 61 6d 65 5d 3a |[functio|n name]:|
|00004880| 20 22 20 22 66 75 6e 63 | 74 69 6f 6e 20 22 20 73 | " "func|tion " s|
|00004890| 74 72 20 22 20 28 22 20 | 28 22 5b 70 61 72 61 6d |tr " (" |("[param|
|000048a0| 65 74 65 72 5f 73 70 65 | 63 69 66 69 63 61 74 69 |eter_spe|cificati|
|000048b0| 6f 6e 5d 3a 20 22 20 73 | 74 72 20 22 3b 20 22 29 |on]: " s|tr "; ")|
|000048c0| 20 2d 32 20 22 29 22 20 | 22 20 72 65 74 75 72 6e | -2 ")" |" return|
|000048d0| 20 22 20 28 61 64 61 2d | 66 75 6e 63 74 69 6f 6e | " (ada-|function|
|000048e0| 2d 73 70 65 63 2d 70 72 | 6f 6d 70 74 2d 72 65 74 |-spec-pr|ompt-ret|
|000048f0| 75 72 6e 29 20 22 3b 22 | 20 6e 29 20 73 74 72 20 |urn) ";"| n) str |
|00004900| 61 72 67 5d 20 34 20 28 | 23 24 20 2e 20 31 37 39 |arg] 4 (|#$ . 179|
|00004910| 36 39 29 20 22 2a 50 5c | 6e 50 22 5d 29 0a 23 40 |69) "*P\|nP"]).#@|
|00004920| 34 39 38 20 49 6e 73 65 | 72 74 20 61 20 70 72 6f |498 Inse|rt a pro|
|00004930| 63 65 64 75 72 65 20 73 | 70 65 63 69 66 69 63 61 |cedure s|pecifica|
|00004940| 74 69 6f 6e 2c 20 70 72 | 6f 6d 70 74 69 6e 67 20 |tion, pr|ompting |
|00004950| 66 6f 72 20 69 74 73 20 | 6e 61 6d 65 20 61 6e 64 |for its |name and|
|00004960| 20 61 72 67 75 6d 65 6e | 74 73 2e 0a 0a 54 68 69 | argumen|ts...Thi|
|00004970| 73 20 69 73 20 61 20 73 | 6b 65 6c 65 74 6f 6e 20 |s is a s|keleton |
|00004980| 63 6f 6d 6d 61 6e 64 20 | 28 73 65 65 20 60 73 6b |command |(see `sk|
|00004990| 65 6c 65 74 6f 6e 2d 69 | 6e 73 65 72 74 27 29 2e |eleton-i|nsert').|
|000049a0| 0a 4e 6f 72 6d 61 6c 6c | 79 20 74 68 65 20 73 6b |.Normall|y the sk|
|000049b0| 65 6c 65 74 6f 6e 20 74 | 65 78 74 20 69 73 20 69 |eleton t|ext is i|
|000049c0| 6e 73 65 72 74 65 64 20 | 61 74 20 70 6f 69 6e 74 |nserted |at point|
|000049d0| 2c 20 77 69 74 68 20 6e | 6f 74 68 69 6e 67 20 22 |, with n|othing "|
|000049e0| 69 6e 73 69 64 65 22 2e | 0a 49 66 20 74 68 65 72 |inside".|.If ther|
|000049f0| 65 20 69 73 20 61 20 68 | 69 67 68 6c 69 67 68 74 |e is a h|ighlight|
|00004a00| 65 64 20 72 65 67 69 6f | 6e 2c 20 74 68 65 20 73 |ed regio|n, the s|
|00004a10| 6b 65 6c 65 74 6f 6e 20 | 74 65 78 74 20 69 73 20 |keleton |text is |
|00004a20| 77 72 61 70 70 65 64 0a | 61 72 6f 75 6e 64 20 74 |wrapped.|around t|
|00004a30| 68 65 20 72 65 67 69 6f | 6e 20 74 65 78 74 2e 0a |he regio|n text..|
|00004a40| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00004a50| 6e 74 20 41 52 47 20 73 | 61 79 73 20 74 6f 20 77 |nt ARG s|ays to w|
|00004a60| 72 61 70 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |rap the |skeleton|
|00004a70| 20 61 72 6f 75 6e 64 20 | 74 68 65 20 6e 65 78 74 | around |the next|
|00004a80| 20 41 52 47 20 77 6f 72 | 64 73 2e 0a 41 20 70 72 | ARG wor|ds..A pr|
|00004a90| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 6f 66 |efix arg|ument of|
|00004aa0| 20 7a 65 72 6f 20 73 61 | 79 73 20 74 6f 20 77 72 | zero sa|ys to wr|
|00004ab0| 61 70 20 61 72 6f 75 6e | 64 20 7a 65 72 6f 20 77 |ap aroun|d zero w|
|00004ac0| 6f 72 64 73 2d 2d 2d 74 | 68 61 74 20 69 73 2c 20 |ords---t|hat is, |
|00004ad0| 6e 6f 74 68 69 6e 67 2e | 0a 54 68 69 73 20 69 73 |nothing.|.This is|
|00004ae0| 20 61 20 77 61 79 20 6f | 66 20 6f 76 65 72 69 64 | a way o|f overid|
|00004af0| 69 6e 67 20 74 68 65 20 | 75 73 65 20 6f 66 20 61 |ing the |use of a|
|00004b00| 20 68 69 67 68 6c 69 67 | 68 74 65 64 20 72 65 67 | highlig|hted reg|
|00004b10| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00004b20| 27 61 64 61 2d 70 72 6f | 63 65 64 75 72 65 2d 73 |'ada-pro|cedure-s|
|00004b30| 70 65 63 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |pec #[(&|optional|
|00004b40| 20 73 74 72 20 61 72 67 | 29 20 22 c0 c1 5c 6e 0b | str arg|) "..\n.|
|00004b50| 23 87 22 20 5b 73 6b 65 | 6c 65 74 6f 6e 2d 70 72 |#." [ske|leton-pr|
|00004b60| 6f 78 79 2d 6e 65 77 20 | 28 22 5b 70 72 6f 63 65 |oxy-new |("[proce|
|00004b70| 64 75 72 65 20 6e 61 6d | 65 5d 3a 20 22 20 22 70 |dure nam|e]: " "p|
|00004b80| 72 6f 63 65 64 75 72 65 | 20 22 20 73 74 72 20 22 |rocedure| " str "|
|00004b90| 20 28 22 20 28 22 5b 70 | 61 72 61 6d 65 74 65 72 | (" ("[p|arameter|
|00004ba0| 5f 73 70 65 63 69 66 69 | 63 61 74 69 6f 6e 5d 3a |_specifi|cation]:|
|00004bb0| 20 22 20 73 74 72 20 22 | 3b 20 22 29 20 2d 32 20 | " str "|; ") -2 |
|00004bc0| 22 29 22 20 22 3b 22 20 | 6e 29 20 73 74 72 20 61 |")" ";" |n) str a|
|00004bd0| 72 67 5d 20 34 20 28 23 | 24 20 2e 20 31 38 37 32 |rg] 4 (#|$ . 1872|
|00004be0| 34 29 20 22 2a 50 5c 6e | 50 22 5d 29 0a 23 40 35 |4) "*P\n|P"]).#@5|
|00004bf0| 32 34 20 49 6e 73 65 72 | 74 20 66 72 61 6d 65 20 |24 Inser|t frame |
|00004c00| 66 6f 72 20 73 75 62 70 | 72 6f 67 72 61 6d 20 62 |for subp|rogram b|
|00004c10| 6f 64 79 2e 0a 49 6e 76 | 6f 6b 65 20 72 69 67 68 |ody..Inv|oke righ|
|00004c20| 74 20 61 66 74 65 72 20 | 60 61 64 61 2d 66 75 6e |t after |`ada-fun|
|00004c30| 63 74 69 6f 6e 2d 73 70 | 65 63 27 20 6f 72 20 60 |ction-sp|ec' or `|
|00004c40| 61 64 61 2d 70 72 6f 63 | 65 64 75 72 65 2d 73 70 |ada-proc|edure-sp|
|00004c50| 65 63 27 2e 0a 0a 54 68 | 69 73 20 69 73 20 61 20 |ec'...Th|is is a |
|00004c60| 73 6b 65 6c 65 74 6f 6e | 20 63 6f 6d 6d 61 6e 64 |skeleton| command|
|00004c70| 20 28 73 65 65 20 60 73 | 6b 65 6c 65 74 6f 6e 2d | (see `s|keleton-|
|00004c80| 69 6e 73 65 72 74 27 29 | 2e 0a 4e 6f 72 6d 61 6c |insert')|..Normal|
|00004c90| 6c 79 20 74 68 65 20 73 | 6b 65 6c 65 74 6f 6e 20 |ly the s|keleton |
|00004ca0| 74 65 78 74 20 69 73 20 | 69 6e 73 65 72 74 65 64 |text is |inserted|
|00004cb0| 20 61 74 20 70 6f 69 6e | 74 2c 20 77 69 74 68 20 | at poin|t, with |
|00004cc0| 6e 6f 74 68 69 6e 67 20 | 22 69 6e 73 69 64 65 22 |nothing |"inside"|
|00004cd0| 2e 0a 49 66 20 74 68 65 | 72 65 20 69 73 20 61 20 |..If the|re is a |
|00004ce0| 68 69 67 68 6c 69 67 68 | 74 65 64 20 72 65 67 69 |highligh|ted regi|
|00004cf0| 6f 6e 2c 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |on, the |skeleton|
|00004d00| 20 74 65 78 74 20 69 73 | 20 77 72 61 70 70 65 64 | text is| wrapped|
|00004d10| 0a 61 72 6f 75 6e 64 20 | 74 68 65 20 72 65 67 69 |.around |the regi|
|00004d20| 6f 6e 20 74 65 78 74 2e | 0a 0a 41 20 70 72 65 66 |on text.|..A pref|
|00004d30| 69 78 20 61 72 67 75 6d | 65 6e 74 20 41 52 47 20 |ix argum|ent ARG |
|00004d40| 73 61 79 73 20 74 6f 20 | 77 72 61 70 20 74 68 65 |says to |wrap the|
|00004d50| 20 73 6b 65 6c 65 74 6f | 6e 20 61 72 6f 75 6e 64 | skeleto|n around|
|00004d60| 20 74 68 65 20 6e 65 78 | 74 20 41 52 47 20 77 6f | the nex|t ARG wo|
|00004d70| 72 64 73 2e 0a 41 20 70 | 72 65 66 69 78 20 61 72 |rds..A p|refix ar|
|00004d80| 67 75 6d 65 6e 74 20 6f | 66 20 7a 65 72 6f 20 73 |gument o|f zero s|
|00004d90| 61 79 73 20 74 6f 20 77 | 72 61 70 20 61 72 6f 75 |ays to w|rap arou|
|00004da0| 6e 64 20 7a 65 72 6f 20 | 77 6f 72 64 73 2d 2d 2d |nd zero |words---|
|00004db0| 74 68 61 74 20 69 73 2c | 20 6e 6f 74 68 69 6e 67 |that is,| nothing|
|00004dc0| 2e 0a 54 68 69 73 20 69 | 73 20 61 20 77 61 79 20 |..This i|s a way |
|00004dd0| 6f 66 20 6f 76 65 72 69 | 64 69 6e 67 20 74 68 65 |of overi|ding the|
|00004de0| 20 75 73 65 20 6f 66 20 | 61 20 68 69 67 68 6c 69 | use of |a highli|
|00004df0| 67 68 74 65 64 20 72 65 | 67 69 6f 6e 2e 1f 0a 28 |ghted re|gion...(|
|00004e00| 64 65 66 61 6c 69 61 73 | 20 27 61 64 61 2d 73 75 |defalias| 'ada-su|
|00004e10| 62 70 72 6f 67 72 61 6d | 2d 62 6f 64 79 20 23 5b |bprogram|-body #[|
|00004e20| 28 26 6f 70 74 69 6f 6e | 61 6c 20 73 74 72 20 61 |(&option|al str a|
|00004e30| 72 67 29 20 22 c0 c1 5c | 6e 0b 23 87 22 20 5b 73 |rg) "..\|n.#." [s|
|00004e40| 6b 65 6c 65 74 6f 6e 2d | 70 72 6f 78 79 2d 6e 65 |keleton-|proxy-ne|
|00004e50| 77 20 28 6e 69 6c 20 28 | 73 61 76 65 2d 65 78 63 |w (nil (|save-exc|
|00004e60| 75 72 73 69 6f 6e 20 28 | 61 64 61 2d 73 65 61 72 |ursion (|ada-sear|
|00004e70| 63 68 2d 69 67 6e 6f 72 | 65 2d 73 74 72 69 6e 67 |ch-ignor|e-string|
|00004e80| 2d 63 6f 6d 6d 65 6e 74 | 20 61 64 61 2d 73 75 62 |-comment| ada-sub|
|00004e90| 70 72 6f 67 2d 73 74 61 | 72 74 2d 72 65 20 74 20 |prog-sta|rt-re t |
|00004ea0| 6e 69 6c 29 20 28 61 64 | 61 2d 73 65 61 72 63 68 |nil) (ad|a-search|
|00004eb0| 2d 69 67 6e 6f 72 65 2d | 73 74 72 69 6e 67 2d 63 |-ignore-|string-c|
|00004ec0| 6f 6d 6d 65 6e 74 20 22 | 28 22 20 6e 69 6c 20 6e |omment "|(" nil n|
|00004ed0| 69 6c 20 74 29 20 28 62 | 61 63 6b 77 61 72 64 2d |il t) (b|ackward-|
|00004ee0| 63 68 61 72 20 31 29 20 | 28 66 6f 72 77 61 72 64 |char 1) |(forward|
|00004ef0| 2d 73 65 78 70 20 31 29 | 20 28 69 66 20 28 6c 6f |-sexp 1)| (if (lo|
|00004f00| 6f 6b 69 6e 67 2d 61 74 | 20 22 3b 22 29 20 28 64 |oking-at| ";") (d|
|00004f10| 65 6c 65 74 65 2d 63 68 | 61 72 20 31 29 29 29 20 |elete-ch|ar 1))) |
|00004f20| 3c 20 22 69 73 22 20 6e | 20 3e 20 5f 20 6e 20 3c |< "is" n| > _ n <|
|00004f30| 20 22 62 65 67 69 6e 22 | 20 6e 20 3e 20 28 69 66 | "begin"| n > (if|
|00004f40| 20 61 64 61 2d 73 74 6d | 74 2d 75 73 65 2d 64 65 | ada-stm|t-use-de|
|00004f50| 62 75 67 20 28 66 6f 72 | 6d 61 74 20 61 64 61 2d |bug (for|mat ada-|
|00004f60| 64 65 62 75 67 2d 63 61 | 6c 6c 2d 73 74 72 20 28 |debug-ca|ll-str (|
|00004f70| 61 64 61 2d 66 75 6e 63 | 2d 6f 72 2d 70 72 6f 63 |ada-func|-or-proc|
|00004f80| 2d 6e 61 6d 65 29 29 29 | 20 6e 20 3e 20 6e 20 3c |-name)))| n > n <|
|00004f90| 20 28 69 66 20 61 64 61 | 2d 73 74 6d 74 2d 75 73 | (if ada|-stmt-us|
|00004fa0| 65 2d 64 65 62 75 67 20 | 22 65 78 63 65 70 74 69 |e-debug |"excepti|
|00004fb0| 6f 6e 22 29 20 26 20 6e | 20 3e 20 28 69 66 20 61 |on") & n| > (if a|
|00004fc0| 64 61 2d 73 74 6d 74 2d | 75 73 65 2d 64 65 62 75 |da-stmt-|use-debu|
|00004fd0| 67 20 22 77 68 65 6e 20 | 6f 74 68 65 72 73 20 3d |g "when |others =|
|00004fe0| 3e 22 29 20 26 20 6e 20 | 3e 20 28 69 66 20 61 64 |>") & n |> (if ad|
|00004ff0| 61 2d 73 74 6d 74 2d 75 | 73 65 2d 64 65 62 75 67 |a-stmt-u|se-debug|
|00005000| 20 28 66 6f 72 6d 61 74 | 20 61 64 61 2d 64 65 62 | (format| ada-deb|
|00005010| 75 67 2d 65 78 63 65 70 | 74 69 6f 6e 2d 73 74 72 |ug-excep|tion-str|
|00005020| 20 28 61 64 61 2d 66 75 | 6e 63 2d 6f 72 2d 70 72 | (ada-fu|nc-or-pr|
|00005030| 6f 63 2d 6e 61 6d 65 29 | 29 29 20 6e 20 3c 20 3c |oc-name)|)) n < <|
|00005040| 20 22 65 6e 64 20 22 20 | 28 61 64 61 2d 66 75 6e | "end " |(ada-fun|
|00005050| 63 2d 6f 72 2d 70 72 6f | 63 2d 6e 61 6d 65 29 20 |c-or-pro|c-name) |
|00005060| 3f 5c 3b 29 20 73 74 72 | 20 61 72 67 5d 20 34 20 |?\;) str| arg] 4 |
|00005070| 28 23 24 20 2e 20 31 39 | 34 34 33 29 20 22 2a 50 |(#$ . 19|443) "*P|
|00005080| 5c 6e 50 22 5d 29 0a 23 | 40 34 36 32 20 46 69 6e |\nP"]).#|@462 Fin|
|00005090| 69 73 68 20 61 20 62 6f | 64 79 20 73 74 75 62 20 |ish a bo|dy stub |
|000050a0| 77 69 74 68 20 60 73 65 | 70 61 72 61 74 65 27 2e |with `se|parate'.|
|000050b0| 0a 0a 54 68 69 73 20 69 | 73 20 61 20 73 6b 65 6c |..This i|s a skel|
|000050c0| 65 74 6f 6e 20 63 6f 6d | 6d 61 6e 64 20 28 73 65 |eton com|mand (se|
|000050d0| 65 20 60 73 6b 65 6c 65 | 74 6f 6e 2d 69 6e 73 65 |e `skele|ton-inse|
|000050e0| 72 74 27 29 2e 0a 4e 6f | 72 6d 61 6c 6c 79 20 74 |rt')..No|rmally t|
|000050f0| 68 65 20 73 6b 65 6c 65 | 74 6f 6e 20 74 65 78 74 |he skele|ton text|
|00005100| 20 69 73 20 69 6e 73 65 | 72 74 65 64 20 61 74 20 | is inse|rted at |
|00005110| 70 6f 69 6e 74 2c 20 77 | 69 74 68 20 6e 6f 74 68 |point, w|ith noth|
|00005120| 69 6e 67 20 22 69 6e 73 | 69 64 65 22 2e 0a 49 66 |ing "ins|ide"..If|
|00005130| 20 74 68 65 72 65 20 69 | 73 20 61 20 68 69 67 68 | there i|s a high|
|00005140| 6c 69 67 68 74 65 64 20 | 72 65 67 69 6f 6e 2c 20 |lighted |region, |
|00005150| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 74 65 78 |the skel|eton tex|
|00005160| 74 20 69 73 20 77 72 61 | 70 70 65 64 0a 61 72 6f |t is wra|pped.aro|
|00005170| 75 6e 64 20 74 68 65 20 | 72 65 67 69 6f 6e 20 74 |und the |region t|
|00005180| 65 78 74 2e 0a 0a 41 20 | 70 72 65 66 69 78 20 61 |ext...A |prefix a|
|00005190| 72 67 75 6d 65 6e 74 20 | 41 52 47 20 73 61 79 73 |rgument |ARG says|
|000051a0| 20 74 6f 20 77 72 61 70 | 20 74 68 65 20 73 6b 65 | to wrap| the ske|
|000051b0| 6c 65 74 6f 6e 20 61 72 | 6f 75 6e 64 20 74 68 65 |leton ar|ound the|
|000051c0| 20 6e 65 78 74 20 41 52 | 47 20 77 6f 72 64 73 2e | next AR|G words.|
|000051d0| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|000051e0| 6e 74 20 6f 66 20 7a 65 | 72 6f 20 73 61 79 73 20 |nt of ze|ro says |
|000051f0| 74 6f 20 77 72 61 70 20 | 61 72 6f 75 6e 64 20 7a |to wrap |around z|
|00005200| 65 72 6f 20 77 6f 72 64 | 73 2d 2d 2d 74 68 61 74 |ero word|s---that|
|00005210| 20 69 73 2c 20 6e 6f 74 | 68 69 6e 67 2e 0a 54 68 | is, not|hing..Th|
|00005220| 69 73 20 69 73 20 61 20 | 77 61 79 20 6f 66 20 6f |is is a |way of o|
|00005230| 76 65 72 69 64 69 6e 67 | 20 74 68 65 20 75 73 65 |veriding| the use|
|00005240| 20 6f 66 20 61 20 68 69 | 67 68 6c 69 67 68 74 65 | of a hi|ghlighte|
|00005250| 64 20 72 65 67 69 6f 6e | 2e 1f 0a 28 64 65 66 61 |d region|...(defa|
|00005260| 6c 69 61 73 20 27 61 64 | 61 2d 73 65 70 61 72 61 |lias 'ad|a-separa|
|00005270| 74 65 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |te #[(&o|ptional |
|00005280| 73 74 72 20 61 72 67 29 | 20 22 c0 c1 5c 6e 0b 23 |str arg)| "..\n.#|
|00005290| 87 22 20 5b 73 6b 65 6c | 65 74 6f 6e 2d 70 72 6f |." [skel|eton-pro|
|000052a0| 78 79 2d 6e 65 77 20 28 | 6e 69 6c 20 3e 20 22 73 |xy-new (|nil > "s|
|000052b0| 65 70 61 72 61 74 65 3b | 22 20 6e 20 3c 29 20 73 |eparate;|" n <) s|
|000052c0| 74 72 20 61 72 67 5d 20 | 34 20 28 23 24 20 2e 20 |tr arg] |4 (#$ . |
|000052d0| 32 30 36 32 31 29 20 22 | 2a 50 5c 6e 50 22 5d 29 |20621) "|*P\nP"])|
|000052e0| 0a 23 40 34 36 39 20 49 | 6e 73 65 72 74 20 61 20 |.#@469 I|nsert a |
|000052f0| 73 6b 65 6c 65 74 6f 6e | 20 72 65 63 6f 72 64 20 |skeleton| record |
|00005300| 74 79 70 65 20 64 65 63 | 6c 61 72 61 74 69 6f 6e |type dec|laration|
|00005310| 2e 0a 0a 54 68 69 73 20 | 69 73 20 61 20 73 6b 65 |...This |is a ske|
|00005320| 6c 65 74 6f 6e 20 63 6f | 6d 6d 61 6e 64 20 28 73 |leton co|mmand (s|
|00005330| 65 65 20 60 73 6b 65 6c | 65 74 6f 6e 2d 69 6e 73 |ee `skel|eton-ins|
|00005340| 65 72 74 27 29 2e 0a 4e | 6f 72 6d 61 6c 6c 79 20 |ert')..N|ormally |
|00005350| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 74 65 78 |the skel|eton tex|
|00005360| 74 20 69 73 20 69 6e 73 | 65 72 74 65 64 20 61 74 |t is ins|erted at|
|00005370| 20 70 6f 69 6e 74 2c 20 | 77 69 74 68 20 6e 6f 74 | point, |with not|
|00005380| 68 69 6e 67 20 22 69 6e | 73 69 64 65 22 2e 0a 49 |hing "in|side"..I|
|00005390| 66 20 74 68 65 72 65 20 | 69 73 20 61 20 68 69 67 |f there |is a hig|
|000053a0| 68 6c 69 67 68 74 65 64 | 20 72 65 67 69 6f 6e 2c |hlighted| region,|
|000053b0| 20 74 68 65 20 73 6b 65 | 6c 65 74 6f 6e 20 74 65 | the ske|leton te|
|000053c0| 78 74 20 69 73 20 77 72 | 61 70 70 65 64 0a 61 72 |xt is wr|apped.ar|
|000053d0| 6f 75 6e 64 20 74 68 65 | 20 72 65 67 69 6f 6e 20 |ound the| region |
|000053e0| 74 65 78 74 2e 0a 0a 41 | 20 70 72 65 66 69 78 20 |text...A| prefix |
|000053f0| 61 72 67 75 6d 65 6e 74 | 20 41 52 47 20 73 61 79 |argument| ARG say|
|00005400| 73 20 74 6f 20 77 72 61 | 70 20 74 68 65 20 73 6b |s to wra|p the sk|
|00005410| 65 6c 65 74 6f 6e 20 61 | 72 6f 75 6e 64 20 74 68 |eleton a|round th|
|00005420| 65 20 6e 65 78 74 20 41 | 52 47 20 77 6f 72 64 73 |e next A|RG words|
|00005430| 2e 0a 41 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |..A pref|ix argum|
|00005440| 65 6e 74 20 6f 66 20 7a | 65 72 6f 20 73 61 79 73 |ent of z|ero says|
|00005450| 20 74 6f 20 77 72 61 70 | 20 61 72 6f 75 6e 64 20 | to wrap| around |
|00005460| 7a 65 72 6f 20 77 6f 72 | 64 73 2d 2d 2d 74 68 61 |zero wor|ds---tha|
|00005470| 74 20 69 73 2c 20 6e 6f | 74 68 69 6e 67 2e 0a 54 |t is, no|thing..T|
|00005480| 68 69 73 20 69 73 20 61 | 20 77 61 79 20 6f 66 20 |his is a| way of |
|00005490| 6f 76 65 72 69 64 69 6e | 67 20 74 68 65 20 75 73 |overidin|g the us|
|000054a0| 65 20 6f 66 20 61 20 68 | 69 67 68 6c 69 67 68 74 |e of a h|ighlight|
|000054b0| 65 64 20 72 65 67 69 6f | 6e 2e 1f 0a 28 64 65 66 |ed regio|n...(def|
|000054c0| 61 6c 69 61 73 20 27 61 | 64 61 2d 72 65 63 6f 72 |alias 'a|da-recor|
|000054d0| 64 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |d #[(&op|tional s|
|000054e0| 74 72 20 61 72 67 29 20 | 22 c0 c1 5c 6e 0b 23 87 |tr arg) |"..\n.#.|
|000054f0| 22 20 5b 73 6b 65 6c 65 | 74 6f 6e 2d 70 72 6f 78 |" [skele|ton-prox|
|00005500| 79 2d 6e 65 77 20 28 6e | 69 6c 20 22 72 65 63 6f |y-new (n|il "reco|
|00005510| 72 64 22 20 6e 20 3e 20 | 5f 20 6e 20 3c 20 22 65 |rd" n > |_ n < "e|
|00005520| 6e 64 20 72 65 63 6f 72 | 64 3b 22 29 20 73 74 72 |nd recor|d;") str|
|00005530| 20 61 72 67 5d 20 34 20 | 28 23 24 20 2e 20 32 31 | arg] 4 |(#$ . 21|
|00005540| 32 32 33 29 20 22 2a 50 | 5c 6e 50 22 5d 29 0a 23 |223) "*P|\nP"]).#|
|00005550| 40 35 30 30 20 53 74 61 | 72 74 20 69 6e 73 65 72 |@500 Sta|rt inser|
|00005560| 74 69 6f 6e 20 6f 66 20 | 61 20 73 75 62 74 79 70 |tion of |a subtyp|
|00005570| 65 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 2c 20 70 |e declar|ation, p|
|00005580| 72 6f 6d 70 74 69 6e 67 | 20 66 6f 72 20 74 68 65 |rompting| for the|
|00005590| 20 73 75 62 74 79 70 65 | 20 6e 61 6d 65 2e 0a 0a | subtype| name...|
|000055a0| 54 68 69 73 20 69 73 20 | 61 20 73 6b 65 6c 65 74 |This is |a skelet|
|000055b0| 6f 6e 20 63 6f 6d 6d 61 | 6e 64 20 28 73 65 65 20 |on comma|nd (see |
|000055c0| 60 73 6b 65 6c 65 74 6f | 6e 2d 69 6e 73 65 72 74 |`skeleto|n-insert|
|000055d0| 27 29 2e 0a 4e 6f 72 6d | 61 6c 6c 79 20 74 68 65 |')..Norm|ally the|
|000055e0| 20 73 6b 65 6c 65 74 6f | 6e 20 74 65 78 74 20 69 | skeleto|n text i|
|000055f0| 73 20 69 6e 73 65 72 74 | 65 64 20 61 74 20 70 6f |s insert|ed at po|
|00005600| 69 6e 74 2c 20 77 69 74 | 68 20 6e 6f 74 68 69 6e |int, wit|h nothin|
|00005610| 67 20 22 69 6e 73 69 64 | 65 22 2e 0a 49 66 20 74 |g "insid|e"..If t|
|00005620| 68 65 72 65 20 69 73 20 | 61 20 68 69 67 68 6c 69 |here is |a highli|
|00005630| 67 68 74 65 64 20 72 65 | 67 69 6f 6e 2c 20 74 68 |ghted re|gion, th|
|00005640| 65 20 73 6b 65 6c 65 74 | 6f 6e 20 74 65 78 74 20 |e skelet|on text |
|00005650| 69 73 20 77 72 61 70 70 | 65 64 0a 61 72 6f 75 6e |is wrapp|ed.aroun|
|00005660| 64 20 74 68 65 20 72 65 | 67 69 6f 6e 20 74 65 78 |d the re|gion tex|
|00005670| 74 2e 0a 0a 41 20 70 72 | 65 66 69 78 20 61 72 67 |t...A pr|efix arg|
|00005680| 75 6d 65 6e 74 20 41 52 | 47 20 73 61 79 73 20 74 |ument AR|G says t|
|00005690| 6f 20 77 72 61 70 20 74 | 68 65 20 73 6b 65 6c 65 |o wrap t|he skele|
|000056a0| 74 6f 6e 20 61 72 6f 75 | 6e 64 20 74 68 65 20 6e |ton arou|nd the n|
|000056b0| 65 78 74 20 41 52 47 20 | 77 6f 72 64 73 2e 0a 41 |ext ARG |words..A|
|000056c0| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|000056d0| 20 6f 66 20 7a 65 72 6f | 20 73 61 79 73 20 74 6f | of zero| says to|
|000056e0| 20 77 72 61 70 20 61 72 | 6f 75 6e 64 20 7a 65 72 | wrap ar|ound zer|
|000056f0| 6f 20 77 6f 72 64 73 2d | 2d 2d 74 68 61 74 20 69 |o words-|--that i|
|00005700| 73 2c 20 6e 6f 74 68 69 | 6e 67 2e 0a 54 68 69 73 |s, nothi|ng..This|
|00005710| 20 69 73 20 61 20 77 61 | 79 20 6f 66 20 6f 76 65 | is a wa|y of ove|
|00005720| 72 69 64 69 6e 67 20 74 | 68 65 20 75 73 65 20 6f |riding t|he use o|
|00005730| 66 20 61 20 68 69 67 68 | 6c 69 67 68 74 65 64 20 |f a high|lighted |
|00005740| 72 65 67 69 6f 6e 2e 1f | 0a 28 64 65 66 61 6c 69 |region..|.(defali|
|00005750| 61 73 20 27 61 64 61 2d | 73 75 62 74 79 70 65 20 |as 'ada-|subtype |
|00005760| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 73 74 72 |#[(&opti|onal str|
|00005770| 20 61 72 67 29 20 22 c0 | c1 5c 6e 0b 23 87 22 20 | arg) ".|.\n.#." |
|00005780| 5b 73 6b 65 6c 65 74 6f | 6e 2d 70 72 6f 78 79 2d |[skeleto|n-proxy-|
|00005790| 6e 65 77 20 28 22 5b 73 | 75 62 74 79 70 65 20 6e |new ("[s|ubtype n|
|000057a0| 61 6d 65 5d 3a 20 22 20 | 22 73 75 62 74 79 70 65 |ame]: " |"subtype|
|000057b0| 20 22 20 73 74 72 20 22 | 20 69 73 20 22 20 5f 20 | " str "| is " _ |
|000057c0| 3f 5c 3b 20 28 6e 6f 74 | 20 28 6d 65 73 73 61 67 |?\; (not| (messag|
|000057d0| 65 20 22 69 6e 73 65 72 | 74 20 73 75 62 74 79 70 |e "inser|t subtyp|
|000057e0| 65 20 69 6e 64 69 63 61 | 74 69 6f 6e 2e 22 29 29 |e indica|tion."))|
|000057f0| 29 20 73 74 72 20 61 72 | 67 5d 20 34 20 28 23 24 |) str ar|g] 4 (#$|
|00005800| 20 2e 20 32 31 38 34 35 | 29 20 22 2a 50 5c 6e 50 | . 21845|) "*P\nP|
|00005810| 22 5d 29 0a 23 40 34 39 | 34 20 53 74 61 72 74 20 |"]).#@49|4 Start |
|00005820| 69 6e 73 65 72 74 69 6f | 6e 20 6f 66 20 61 20 74 |insertio|n of a t|
|00005830| 79 70 65 20 64 65 63 6c | 61 72 61 74 69 6f 6e 2c |ype decl|aration,|
|00005840| 20 70 72 6f 6d 70 74 69 | 6e 67 20 66 6f 72 20 74 | prompti|ng for t|
|00005850| 68 65 20 74 79 70 65 20 | 6e 61 6d 65 2e 0a 0a 54 |he type |name...T|
|00005860| 68 69 73 20 69 73 20 61 | 20 73 6b 65 6c 65 74 6f |his is a| skeleto|
|00005870| 6e 20 63 6f 6d 6d 61 6e | 64 20 28 73 65 65 20 60 |n comman|d (see `|
|00005880| 73 6b 65 6c 65 74 6f 6e | 2d 69 6e 73 65 72 74 27 |skeleton|-insert'|
|00005890| 29 2e 0a 4e 6f 72 6d 61 | 6c 6c 79 20 74 68 65 20 |)..Norma|lly the |
|000058a0| 73 6b 65 6c 65 74 6f 6e | 20 74 65 78 74 20 69 73 |skeleton| text is|
|000058b0| 20 69 6e 73 65 72 74 65 | 64 20 61 74 20 70 6f 69 | inserte|d at poi|
|000058c0| 6e 74 2c 20 77 69 74 68 | 20 6e 6f 74 68 69 6e 67 |nt, with| nothing|
|000058d0| 20 22 69 6e 73 69 64 65 | 22 2e 0a 49 66 20 74 68 | "inside|"..If th|
|000058e0| 65 72 65 20 69 73 20 61 | 20 68 69 67 68 6c 69 67 |ere is a| highlig|
|000058f0| 68 74 65 64 20 72 65 67 | 69 6f 6e 2c 20 74 68 65 |hted reg|ion, the|
|00005900| 20 73 6b 65 6c 65 74 6f | 6e 20 74 65 78 74 20 69 | skeleto|n text i|
|00005910| 73 20 77 72 61 70 70 65 | 64 0a 61 72 6f 75 6e 64 |s wrappe|d.around|
|00005920| 20 74 68 65 20 72 65 67 | 69 6f 6e 20 74 65 78 74 | the reg|ion text|
|00005930| 2e 0a 0a 41 20 70 72 65 | 66 69 78 20 61 72 67 75 |...A pre|fix argu|
|00005940| 6d 65 6e 74 20 41 52 47 | 20 73 61 79 73 20 74 6f |ment ARG| says to|
|00005950| 20 77 72 61 70 20 74 68 | 65 20 73 6b 65 6c 65 74 | wrap th|e skelet|
|00005960| 6f 6e 20 61 72 6f 75 6e | 64 20 74 68 65 20 6e 65 |on aroun|d the ne|
|00005970| 78 74 20 41 52 47 20 77 | 6f 72 64 73 2e 0a 41 20 |xt ARG w|ords..A |
|00005980| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 20 |prefix a|rgument |
|00005990| 6f 66 20 7a 65 72 6f 20 | 73 61 79 73 20 74 6f 20 |of zero |says to |
|000059a0| 77 72 61 70 20 61 72 6f | 75 6e 64 20 7a 65 72 6f |wrap aro|und zero|
|000059b0| 20 77 6f 72 64 73 2d 2d | 2d 74 68 61 74 20 69 73 | words--|-that is|
|000059c0| 2c 20 6e 6f 74 68 69 6e | 67 2e 0a 54 68 69 73 20 |, nothin|g..This |
|000059d0| 69 73 20 61 20 77 61 79 | 20 6f 66 20 6f 76 65 72 |is a way| of over|
|000059e0| 69 64 69 6e 67 20 74 68 | 65 20 75 73 65 20 6f 66 |iding th|e use of|
|000059f0| 20 61 20 68 69 67 68 6c | 69 67 68 74 65 64 20 72 | a highl|ighted r|
|00005a00| 65 67 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |egion...|(defalia|
|00005a10| 73 20 27 61 64 61 2d 74 | 79 70 65 20 23 5b 28 26 |s 'ada-t|ype #[(&|
|00005a20| 6f 70 74 69 6f 6e 61 6c | 20 73 74 72 20 61 72 67 |optional| str arg|
|00005a30| 29 20 22 c0 c1 5c 6e 0b | 23 87 22 20 5b 73 6b 65 |) "..\n.|#." [ske|
|00005a40| 6c 65 74 6f 6e 2d 70 72 | 6f 78 79 2d 6e 65 77 20 |leton-pr|oxy-new |
|00005a50| 28 22 5b 74 79 70 65 20 | 6e 61 6d 65 5d 3a 20 22 |("[type |name]: "|
|00005a60| 20 22 74 79 70 65 20 22 | 20 73 74 72 20 3f 5c 28 | "type "| str ?\(|
|00005a70| 20 28 22 5b 64 69 73 63 | 72 69 6d 69 6e 61 6e 74 | ("[disc|riminant|
|00005a80| 20 73 70 65 63 73 5d 3a | 20 22 20 73 74 72 20 22 | specs]:| " str "|
|00005a90| 20 22 29 20 7c 20 28 62 | 61 63 6b 77 61 72 64 2d | ") | (b|ackward-|
|00005aa0| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 31 29 20 7c |delete-c|har 1) ||
|00005ab0| 20 3f 5c 29 20 22 20 69 | 73 20 22 20 28 6e 6f 74 | ?\) " i|s " (not|
|00005ac0| 20 28 6d 65 73 73 61 67 | 65 20 22 69 6e 73 65 72 | (messag|e "inser|
|00005ad0| 74 20 74 79 70 65 20 64 | 65 66 69 6e 69 74 69 6f |t type d|efinitio|
|00005ae0| 6e 2e 22 29 29 29 20 73 | 74 72 20 61 72 67 5d 20 |n."))) s|tr arg] |
|00005af0| 34 20 28 23 24 20 2e 20 | 32 32 35 35 34 29 20 22 |4 (#$ . |22554) "|
|00005b00| 2a 50 5c 6e 50 22 5d 29 | 0a 23 40 34 37 35 20 49 |*P\nP"])|.#@475 I|
|00005b10| 6e 73 65 72 74 20 61 20 | 74 61 73 6b 20 62 6f 64 |nsert a |task bod|
|00005b20| 79 2c 20 70 72 6f 6d 70 | 74 69 6e 67 20 66 6f 72 |y, promp|ting for|
|00005b30| 20 74 68 65 20 74 61 73 | 6b 20 6e 61 6d 65 2e 0a | the tas|k name..|
|00005b40| 0a 54 68 69 73 20 69 73 | 20 61 20 73 6b 65 6c 65 |.This is| a skele|
|00005b50| 74 6f 6e 20 63 6f 6d 6d | 61 6e 64 20 28 73 65 65 |ton comm|and (see|
|00005b60| 20 60 73 6b 65 6c 65 74 | 6f 6e 2d 69 6e 73 65 72 | `skelet|on-inser|
|00005b70| 74 27 29 2e 0a 4e 6f 72 | 6d 61 6c 6c 79 20 74 68 |t')..Nor|mally th|
|00005b80| 65 20 73 6b 65 6c 65 74 | 6f 6e 20 74 65 78 74 20 |e skelet|on text |
|00005b90| 69 73 20 69 6e 73 65 72 | 74 65 64 20 61 74 20 70 |is inser|ted at p|
|00005ba0| 6f 69 6e 74 2c 20 77 69 | 74 68 20 6e 6f 74 68 69 |oint, wi|th nothi|
|00005bb0| 6e 67 20 22 69 6e 73 69 | 64 65 22 2e 0a 49 66 20 |ng "insi|de"..If |
|00005bc0| 74 68 65 72 65 20 69 73 | 20 61 20 68 69 67 68 6c |there is| a highl|
|00005bd0| 69 67 68 74 65 64 20 72 | 65 67 69 6f 6e 2c 20 74 |ighted r|egion, t|
|00005be0| 68 65 20 73 6b 65 6c 65 | 74 6f 6e 20 74 65 78 74 |he skele|ton text|
|00005bf0| 20 69 73 20 77 72 61 70 | 70 65 64 0a 61 72 6f 75 | is wrap|ped.arou|
|00005c00| 6e 64 20 74 68 65 20 72 | 65 67 69 6f 6e 20 74 65 |nd the r|egion te|
|00005c10| 78 74 2e 0a 0a 41 20 70 | 72 65 66 69 78 20 61 72 |xt...A p|refix ar|
|00005c20| 67 75 6d 65 6e 74 20 41 | 52 47 20 73 61 79 73 20 |gument A|RG says |
|00005c30| 74 6f 20 77 72 61 70 20 | 74 68 65 20 73 6b 65 6c |to wrap |the skel|
|00005c40| 65 74 6f 6e 20 61 72 6f | 75 6e 64 20 74 68 65 20 |eton aro|und the |
|00005c50| 6e 65 78 74 20 41 52 47 | 20 77 6f 72 64 73 2e 0a |next ARG| words..|
|00005c60| 41 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |A prefix| argumen|
|00005c70| 74 20 6f 66 20 7a 65 72 | 6f 20 73 61 79 73 20 74 |t of zer|o says t|
|00005c80| 6f 20 77 72 61 70 20 61 | 72 6f 75 6e 64 20 7a 65 |o wrap a|round ze|
|00005c90| 72 6f 20 77 6f 72 64 73 | 2d 2d 2d 74 68 61 74 20 |ro words|---that |
|00005ca0| 69 73 2c 20 6e 6f 74 68 | 69 6e 67 2e 0a 54 68 69 |is, noth|ing..Thi|
|00005cb0| 73 20 69 73 20 61 20 77 | 61 79 20 6f 66 20 6f 76 |s is a w|ay of ov|
|00005cc0| 65 72 69 64 69 6e 67 20 | 74 68 65 20 75 73 65 20 |eriding |the use |
|00005cd0| 6f 66 20 61 20 68 69 67 | 68 6c 69 67 68 74 65 64 |of a hig|hlighted|
|00005ce0| 20 72 65 67 69 6f 6e 2e | 1f 0a 28 64 65 66 61 6c | region.|..(defal|
|00005cf0| 69 61 73 20 27 61 64 61 | 2d 74 61 73 6b 2d 62 6f |ias 'ada|-task-bo|
|00005d00| 64 79 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |dy #[(&o|ptional |
|00005d10| 73 74 72 20 61 72 67 29 | 20 22 c0 c1 5c 6e 0b 23 |str arg)| "..\n.#|
|00005d20| 87 22 20 5b 73 6b 65 6c | 65 74 6f 6e 2d 70 72 6f |." [skel|eton-pro|
|00005d30| 78 79 2d 6e 65 77 20 28 | 22 5b 74 61 73 6b 20 6e |xy-new (|"[task n|
|00005d40| 61 6d 65 5d 3a 20 22 20 | 22 74 61 73 6b 20 62 6f |ame]: " |"task bo|
|00005d50| 64 79 20 22 20 73 74 72 | 20 22 20 69 73 5c 6e 22 |dy " str| " is\n"|
|00005d60| 20 22 62 65 67 69 6e 5c | 6e 22 20 3e 20 5f 20 6e | "begin\|n" > _ n|
|00005d70| 20 3c 20 22 65 6e 64 20 | 22 20 73 74 72 20 22 3b | < "end |" str ";|
|00005d80| 22 29 20 73 74 72 20 61 | 72 67 5d 20 34 20 28 23 |") str a|rg] 4 (#|
|00005d90| 24 20 2e 20 32 33 33 31 | 31 29 20 22 2a 50 5c 6e |$ . 2331|1) "*P\n|
|00005da0| 50 22 5d 29 0a 23 40 34 | 38 34 20 49 6e 73 65 72 |P"]).#@4|84 Inser|
|00005db0| 74 20 61 20 74 61 73 6b | 20 73 70 65 63 69 66 69 |t a task| specifi|
|00005dc0| 63 61 74 69 6f 6e 2c 20 | 70 72 6f 6d 70 74 69 6e |cation, |promptin|
|00005dd0| 67 20 66 6f 72 20 74 68 | 65 20 74 61 73 6b 20 6e |g for th|e task n|
|00005de0| 61 6d 65 2e 0a 0a 54 68 | 69 73 20 69 73 20 61 20 |ame...Th|is is a |
|00005df0| 73 6b 65 6c 65 74 6f 6e | 20 63 6f 6d 6d 61 6e 64 |skeleton| command|
|00005e00| 20 28 73 65 65 20 60 73 | 6b 65 6c 65 74 6f 6e 2d | (see `s|keleton-|
|00005e10| 69 6e 73 65 72 74 27 29 | 2e 0a 4e 6f 72 6d 61 6c |insert')|..Normal|
|00005e20| 6c 79 20 74 68 65 20 73 | 6b 65 6c 65 74 6f 6e 20 |ly the s|keleton |
|00005e30| 74 65 78 74 20 69 73 20 | 69 6e 73 65 72 74 65 64 |text is |inserted|
|00005e40| 20 61 74 20 70 6f 69 6e | 74 2c 20 77 69 74 68 20 | at poin|t, with |
|00005e50| 6e 6f 74 68 69 6e 67 20 | 22 69 6e 73 69 64 65 22 |nothing |"inside"|
|00005e60| 2e 0a 49 66 20 74 68 65 | 72 65 20 69 73 20 61 20 |..If the|re is a |
|00005e70| 68 69 67 68 6c 69 67 68 | 74 65 64 20 72 65 67 69 |highligh|ted regi|
|00005e80| 6f 6e 2c 20 74 68 65 20 | 73 6b 65 6c 65 74 6f 6e |on, the |skeleton|
|00005e90| 20 74 65 78 74 20 69 73 | 20 77 72 61 70 70 65 64 | text is| wrapped|
|00005ea0| 0a 61 72 6f 75 6e 64 20 | 74 68 65 20 72 65 67 69 |.around |the regi|
|00005eb0| 6f 6e 20 74 65 78 74 2e | 0a 0a 41 20 70 72 65 66 |on text.|..A pref|
|00005ec0| 69 78 20 61 72 67 75 6d | 65 6e 74 20 41 52 47 20 |ix argum|ent ARG |
|00005ed0| 73 61 79 73 20 74 6f 20 | 77 72 61 70 20 74 68 65 |says to |wrap the|
|00005ee0| 20 73 6b 65 6c 65 74 6f | 6e 20 61 72 6f 75 6e 64 | skeleto|n around|
|00005ef0| 20 74 68 65 20 6e 65 78 | 74 20 41 52 47 20 77 6f | the nex|t ARG wo|
|00005f00| 72 64 73 2e 0a 41 20 70 | 72 65 66 69 78 20 61 72 |rds..A p|refix ar|
|00005f10| 67 75 6d 65 6e 74 20 6f | 66 20 7a 65 72 6f 20 73 |gument o|f zero s|
|00005f20| 61 79 73 20 74 6f 20 77 | 72 61 70 20 61 72 6f 75 |ays to w|rap arou|
|00005f30| 6e 64 20 7a 65 72 6f 20 | 77 6f 72 64 73 2d 2d 2d |nd zero |words---|
|00005f40| 74 68 61 74 20 69 73 2c | 20 6e 6f 74 68 69 6e 67 |that is,| nothing|
|00005f50| 2e 0a 54 68 69 73 20 69 | 73 20 61 20 77 61 79 20 |..This i|s a way |
|00005f60| 6f 66 20 6f 76 65 72 69 | 64 69 6e 67 20 74 68 65 |of overi|ding the|
|00005f70| 20 75 73 65 20 6f 66 20 | 61 20 68 69 67 68 6c 69 | use of |a highli|
|00005f80| 67 68 74 65 64 20 72 65 | 67 69 6f 6e 2e 1f 0a 28 |ghted re|gion...(|
|00005f90| 64 65 66 61 6c 69 61 73 | 20 27 61 64 61 2d 74 61 |defalias| 'ada-ta|
|00005fa0| 73 6b 2d 73 70 65 63 20 | 23 5b 28 26 6f 70 74 69 |sk-spec |#[(&opti|
|00005fb0| 6f 6e 61 6c 20 73 74 72 | 20 61 72 67 29 20 22 c0 |onal str| arg) ".|
|00005fc0| c1 5c 6e 0b 23 87 22 20 | 5b 73 6b 65 6c 65 74 6f |.\n.#." |[skeleto|
|00005fd0| 6e 2d 70 72 6f 78 79 2d | 6e 65 77 20 28 22 5b 74 |n-proxy-|new ("[t|
|00005fe0| 61 73 6b 20 6e 61 6d 65 | 5d 3a 20 22 20 22 74 61 |ask name|]: " "ta|
|00005ff0| 73 6b 20 22 20 73 74 72 | 20 22 20 28 22 20 28 22 |sk " str| " (" ("|
|00006000| 5b 64 69 73 63 72 69 6d | 69 6e 61 6e 74 5d 3a 20 |[discrim|inant]: |
|00006010| 22 20 73 74 72 20 22 3b | 20 22 29 20 22 29 20 69 |" str ";| ") ") i|
|00006020| 73 5c 6e 22 20 3e 20 22 | 65 6e 74 72 79 20 22 20 |s\n" > "|entry " |
|00006030| 5f 20 6e 20 3c 20 22 65 | 6e 64 20 22 20 73 74 72 |_ n < "e|nd " str|
|00006040| 20 22 3b 22 29 20 73 74 | 72 20 61 72 67 5d 20 34 | ";") st|r arg] 4|
|00006050| 20 28 23 24 20 2e 20 32 | 33 39 37 39 29 20 22 2a | (#$ . 2|3979) "*|
|00006060| 50 5c 6e 50 22 5d 29 0a | 23 40 34 38 34 20 50 72 |P\nP"]).|#@484 Pr|
|00006070| 6f 6d 70 74 20 66 6f 72 | 20 61 72 67 75 6d 65 6e |ompt for| argumen|
|00006080| 74 73 20 61 6e 64 20 69 | 66 20 61 6e 79 20 65 6e |ts and i|f any en|
|00006090| 63 6c 6f 73 65 20 74 68 | 65 6d 20 69 6e 20 62 72 |close th|em in br|
|000060a0| 61 63 6b 65 74 73 2e 0a | 0a 54 68 69 73 20 69 73 |ackets..|.This is|
|000060b0| 20 61 20 73 6b 65 6c 65 | 74 6f 6e 20 63 6f 6d 6d | a skele|ton comm|
|000060c0| 61 6e 64 20 28 73 65 65 | 20 60 73 6b 65 6c 65 74 |and (see| `skelet|
|000060d0| 6f 6e 2d 69 6e 73 65 72 | 74 27 29 2e 0a 4e 6f 72 |on-inser|t')..Nor|
|000060e0| 6d 61 6c 6c 79 20 74 68 | 65 20 73 6b 65 6c 65 74 |mally th|e skelet|
|000060f0| 6f 6e 20 74 65 78 74 20 | 69 73 20 69 6e 73 65 72 |on text |is inser|
|00006100| 74 65 64 20 61 74 20 70 | 6f 69 6e 74 2c 20 77 69 |ted at p|oint, wi|
|00006110| 74 68 20 6e 6f 74 68 69 | 6e 67 20 22 69 6e 73 69 |th nothi|ng "insi|
|00006120| 64 65 22 2e 0a 49 66 20 | 74 68 65 72 65 20 69 73 |de"..If |there is|
|00006130| 20 61 20 68 69 67 68 6c | 69 67 68 74 65 64 20 72 | a highl|ighted r|
|00006140| 65 67 69 6f 6e 2c 20 74 | 68 65 20 73 6b 65 6c 65 |egion, t|he skele|
|00006150| 74 6f 6e 20 74 65 78 74 | 20 69 73 20 77 72 61 70 |ton text| is wrap|
|00006160| 70 65 64 0a 61 72 6f 75 | 6e 64 20 74 68 65 20 72 |ped.arou|nd the r|
|00006170| 65 67 69 6f 6e 20 74 65 | 78 74 2e 0a 0a 41 20 70 |egion te|xt...A p|
|00006180| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 20 41 |refix ar|gument A|
|00006190| 52 47 20 73 61 79 73 20 | 74 6f 20 77 72 61 70 20 |RG says |to wrap |
|000061a0| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 61 72 6f |the skel|eton aro|
|000061b0| 75 6e 64 20 74 68 65 20 | 6e 65 78 74 20 41 52 47 |und the |next ARG|
|000061c0| 20 77 6f 72 64 73 2e 0a | 41 20 70 72 65 66 69 78 | words..|A prefix|
|000061d0| 20 61 72 67 75 6d 65 6e | 74 20 6f 66 20 7a 65 72 | argumen|t of zer|
|000061e0| 6f 20 73 61 79 73 20 74 | 6f 20 77 72 61 70 20 61 |o says t|o wrap a|
|000061f0| 72 6f 75 6e 64 20 7a 65 | 72 6f 20 77 6f 72 64 73 |round ze|ro words|
|00006200| 2d 2d 2d 74 68 61 74 20 | 69 73 2c 20 6e 6f 74 68 |---that |is, noth|
|00006210| 69 6e 67 2e 0a 54 68 69 | 73 20 69 73 20 61 20 77 |ing..Thi|s is a w|
|00006220| 61 79 20 6f 66 20 6f 76 | 65 72 69 64 69 6e 67 20 |ay of ov|eriding |
|00006230| 74 68 65 20 75 73 65 20 | 6f 66 20 61 20 68 69 67 |the use |of a hig|
|00006240| 68 6c 69 67 68 74 65 64 | 20 72 65 67 69 6f 6e 2e |hlighted| region.|
|00006250| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |..(defal|ias 'ada|
|00006260| 2d 67 65 74 2d 70 61 72 | 61 6d 31 20 23 5b 28 26 |-get-par|am1 #[(&|
|00006270| 6f 70 74 69 6f 6e 61 6c | 20 73 74 72 20 61 72 67 |optional| str arg|
|00006280| 29 20 22 c0 c1 5c 6e 0b | 23 87 22 20 5b 73 6b 65 |) "..\n.|#." [ske|
|00006290| 6c 65 74 6f 6e 2d 70 72 | 6f 78 79 2d 6e 65 77 20 |leton-pr|oxy-new |
|000062a0| 28 6e 69 6c 20 28 22 5b | 70 61 72 61 6d 65 74 65 |(nil ("[|paramete|
|000062b0| 72 5f 73 70 65 63 69 66 | 69 63 61 74 69 6f 6e 5d |r_specif|ication]|
|000062c0| 3a 20 22 20 73 74 72 20 | 22 3b 20 22 29 20 26 20 |: " str |"; ") & |
|000062d0| 2d 32 20 26 20 22 29 22 | 29 20 73 74 72 20 61 72 |-2 & ")"|) str ar|
|000062e0| 67 5d 20 34 20 28 23 24 | 20 2e 20 32 34 36 38 36 |g] 4 (#$| . 24686|
|000062f0| 29 20 22 2a 50 5c 6e 50 | 22 5d 29 0a 23 40 34 38 |) "*P\nP|"]).#@48|
|00006300| 34 20 50 72 6f 6d 70 74 | 20 66 6f 72 20 61 72 67 |4 Prompt| for arg|
|00006310| 75 6d 65 6e 74 73 20 61 | 6e 64 20 69 66 20 61 6e |uments a|nd if an|
|00006320| 79 20 65 6e 63 6c 6f 73 | 65 20 74 68 65 6d 20 69 |y enclos|e them i|
|00006330| 6e 20 62 72 61 63 6b 65 | 74 73 2e 0a 0a 54 68 69 |n bracke|ts...Thi|
|00006340| 73 20 69 73 20 61 20 73 | 6b 65 6c 65 74 6f 6e 20 |s is a s|keleton |
|00006350| 63 6f 6d 6d 61 6e 64 20 | 28 73 65 65 20 60 73 6b |command |(see `sk|
|00006360| 65 6c 65 74 6f 6e 2d 69 | 6e 73 65 72 74 27 29 2e |eleton-i|nsert').|
|00006370| 0a 4e 6f 72 6d 61 6c 6c | 79 20 74 68 65 20 73 6b |.Normall|y the sk|
|00006380| 65 6c 65 74 6f 6e 20 74 | 65 78 74 20 69 73 20 69 |eleton t|ext is i|
|00006390| 6e 73 65 72 74 65 64 20 | 61 74 20 70 6f 69 6e 74 |nserted |at point|
|000063a0| 2c 20 77 69 74 68 20 6e | 6f 74 68 69 6e 67 20 22 |, with n|othing "|
|000063b0| 69 6e 73 69 64 65 22 2e | 0a 49 66 20 74 68 65 72 |inside".|.If ther|
|000063c0| 65 20 69 73 20 61 20 68 | 69 67 68 6c 69 67 68 74 |e is a h|ighlight|
|000063d0| 65 64 20 72 65 67 69 6f | 6e 2c 20 74 68 65 20 73 |ed regio|n, the s|
|000063e0| 6b 65 6c 65 74 6f 6e 20 | 74 65 78 74 20 69 73 20 |keleton |text is |
|000063f0| 77 72 61 70 70 65 64 0a | 61 72 6f 75 6e 64 20 74 |wrapped.|around t|
+--------+-------------------------+-------------------------+--------+--------+